Var n,a,h,m,s:integer; begin writeln('Введите кол-во дней'); read(n); if n>1 then begin writeln('В ', n ,' сутках:'); writeln(n*24,' часа'); writeln(n*24*60,' минут'); writeln(n*24*60*60,' секунд') end; if n=1 then begin writeln('В ',n,' дне'); writeln(n*24,' часа'); writeln(n*24*60,' минут'); writeln(n*24*60*60,' секунд'); end;<span> end. </span>
Var X,Y:real; Begin Write('X = '); ReadLn(X); Write('Y = '); ReadLn(Y); if X>0 then if Y>0 then Write('Первая четверть') else Write('Вторая четверть') else if Y<0 then Write('Третья четверть') else Write('Четвёртая четверть') End.
1)110-7=103(количество человек,знающих один из языков) 2)103-87=16(количество человек,знающих только испанский язык) 3)75-16=59(количество человек,знающих оба этих языка) Ответ:59 человек знают оба этих языка.