Відомі поточна дата та дата народження користувача програми у вигляді трьох цілих чисел: день, місяць та рік.
Визначити повну кількість років користувача.
Program one;
uses crt;
var
year,month,day:integer;
user_year,user_month,user_day:integer;
age:integer;
begin
clrscr;
year:=2012;
month:=5;
day:=19;
user_year:=1996;
user_month:=4;
user_day:=28;
age:=year-user_year;
if month < user_month then age:=age-1
else begin
if (month=user_month) and
(day
then age:=age-1
end;
writeln(age);
readln;
end.
Невдаха-учень Сашко сів виконувати домашнє завдання і просидів за столом N годин.
З них Х хвилин він чухав потилицю і дивився у вікно, Y хвилин шукав у письмовому столі гумку, щоб стерти у підручнику з англійської мови карикатуру на свого товариша, на малювання якої він витратив перед цим Z хвилин.
Весь останній час Сашко перекладав англійські слова.
Скільки слів він встиг перекласти, якщо на переклад одного слова у нього йшло 5 хвилин?
Program two;
Uses crt;
var x, y, z, n, a:integer;
begin
Clrscr;
writeln('Vvedite x, y, z, n');
readln(x, y, z, n);
n:=n*60;
a:=n-x-y-z;
a:=a div 5;
case a mod 10 of
1: writeln (a, 'slovo');
2,3,4: writeln (a, 'slova');
0, 5, 6, 7, 8, 9: writeln (a, 'slov') ;
end;
readln;
end.
Папуга навчився висмикувати у дідуся Василя волосся, яке ще залишилось у того на голові.
Почавши з однієї волосини, він кожен день збільшував порцію удвічі.
Через скільки днів дідусеві не знадобиться гребінець, якщо на початку у нього на голові було аж N волосин?
Program three;
Uses crt;
Var N,Sum,Day,K:integer;
Begin
Clrscr;
Writeln('Bud laska, vvedite pochatkovu kilkist volosia u didusia:');
Readln(N);
if N<0 then writeln ('Did lysyi') else
begin
Sum:=N;
Day:=0;
K:=1;
Repeat
Sum:=Sum-K;
K:=2*K;
Day:=Day+1;
Until Sum<=0;
end;
case Day mod 10 of
1: writeln ('U didusia volosia zakinchylos na ',Day, ' den');
2,3,4: writeln ('U didusia volosia zakinchylos na ',Day, ' dnia');
0, 5, 6, 7, 8, 9: writeln ('U
Дані дві коробки прямокутної форми з довжинами сторін і висотою (a1,b1,h1) та (a2,b2,h2).
Визначити, чи можна одну з коробок вкласти в іншу.
Товщиною матеріалу, з якого зроблені коробки можна нехтувати.
Відповіддю повинно бути відповідно, «YES» чи «NO».
Program four;
Uses crt;
Var a1, b1, h1, a2, b2, h2 :integer;
Begin
Clrscr;
Writeln('Bud laska, vvedite storony ta dovzynu odniei korobky:' );
Readln(a1, b1, h1);
Writeln('Bud laska, vvedite storony ta dovzynu drugoi korobky:' );
Readln(a2, b2, h2);
If (a1>a2) and (b1>b2) and (h1>h2) or(a2>a1) and (b2>b1) and (h2>h1) then writeln ('yes') else writeln ('no');
Readln;
End.
