Var i,n,k:integer;
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
readln
end.
14 детей в классе
7 математика
5 оба
2 только история
12 девочек и мальчиков
9 мальчиков
3 девочки
Решим задание наоборот, при этом меняем и команды:
1. 28 - > 2;
2. 58 -> 4.
Команда 1: вычти 3;
Команда 2: квадратный корень из числа.
а)
28 - 3 = 25 (1).
5 (2).
5 - 3 = 2 (1).
Результат записываем снизу-вверх: 121.
б)
58 - 3 = 55 (1).
55 - 3 = 52 (1).
52 - 3 = 49 (1).
= 7 (2).
7 - 3 = 4 (1).
Результат: 12111.
Метель,дождь,ветер,сырость,слякоть