Решите 2 в паскаль. ! 1)дано количество секунд, прошедших с начала суток. сколько полных часов прошло с начала суток, сколько минут прошло с начала очередного часа и сколько секунд прошло с начала очередной минуты? 2)сколько квадратов со стороной а поместится в прямоугольнике со сторонами x и y? вычислите незаполненную площадь

213

461

Посмотреть ответы 2

Ответы на вопрос:

AnyaManankina

Информатика

4,6(63 оценок)

1) var x,s,m,c: integer; beginwrite('введите количество секунд: '); readln(x); c: =x div 3600; m: = (x mod 3600) div 60; s: =(x mod 3600) mod 60; writeln('прошло ',c,' часов ',m,' минут ', s,' секунд '); end. решение 2 смотри во вложении

Natalym2001

Информатика

4,4(69 оценок)

// pascalabc.net 3.1, сборка 1213 от 04.04.2016 function sod(x: integer): integer; begin x: =abs(x); result: =0; while x> 0 do begin result+=x mod 10; x: =x div 10 end end; begin var a: =arrrandom(readinteger('n='),1,999); a.println; write('минимальный четный, делящийся на три: '); var b: =a.where(x-> (x mod 3=0) and x.iseven); if b.count> 0 then writeln(b.min) else writeln('не существует'); write('количество элементов с четностью, как у их места: '); writeln(a.where((x,i)-> (x mod 2)=((i+1) mod ); write('число, сумма цифр которого наибольшая: '); var i: =a.select(x-> sod(.indexmax; writeln(a.elementat(i)); write('искомое количество пар: '); writeln(a.pairwise.where(x-> x[0]. iseven and x[1].isodd and (x[1]> ); end. тестовое решение: n= 15 707 351 221 748 296 205 182 714 849 76 281 53 354 46 217 минимальный четный, делящийся на три: 354 количество элементов с четностью, как у их места: 9 число, сумма цифр которого наибольшая: 849 искомое количество пар: 3