1.
var n, k: integer;
begin
read(n);
k := n div 10;
n := n mod 10;
k := k + n div 5;
n := n mod 5;
k := k + n;
writeln(k);
<span>end.
2.
var n: integer;
begin
read(n);
writeln(n, ' суток = ', 24 * n, ' часов = ', 1440 * n, ' минут = ', 86400 * n, ' секунд');
<span>end.</span></span>
Ответ:
34
Объяснение:
Нужно найти наибольшее число, меньшее 38 и делящееся на 17 (т.к. оба условия в скобках не должны выполняться). Это число 34.
Ответ: в) ввпвпнн, потому, что там надо идти вниз, а вниз ненадо
Program n1;
Uses CRT;
Const n=5; m=7;
Var A: array[1..n,1..n] of integer;
i,j,s,k: integer;
begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
k:=k+1;
end;
writeln;
end;
Writeln('srednee arifmeticheskoe =',s/k:4:4);
readln
end.