Готовка еды, уборка квартиры, поход в магазин.
Ответ:
1) комірка є найменшим елементом електронної таблиці
PascalABC.NET
-----------------------------
var
a: array[1..10000] of integer;
kz,maxp,n,i,j: integer;
begin
i:=0;
maxp:=integer.MinValue;
writeln ('Готов к приему чисел');
repeat
i:=i+1;
readln (a[i]);
until a[i]=0;
n:=i-1;
readln (kz);
for i:=1 to n-1 do
for j:=2 to n do
if maxp<(a[i]*a[j]) then maxp:=(a[i]*a[j]);
writeln ('Получено ',n,' чисел');
writeln;
writeln ('Полученное контрольное значение: ',kz);
writeln;
writeln ('Вычисленное контрольное значение: ',maxp);
writeln;
if kz=maxp
then writeln ('Контроль пройден')
else writeln ('Контроль не пройден');
end.
--------------------------------------
Результаты:
1)
Готов к приему чисел
1 2 3 4 5 0 20
Получено 5 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 20
Контроль пройден
2)
Готов к приему чисел
1 2 3 4 5 6 0 20
Получено 6 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 30
Контроль не пройден
Program Test;
Var
x: integer; chas: real; str1, str2: string;
Begin
Write('Введите длительность телепрограммы (мин): ');
Readln(X);
Writeln();
if (x < 60) then
begin
if (x < 10) then
Writeln('Миша ляжет спать в 00:0', x)
else
Writeln('Миша ляжет спать в 00:', x)
end
else
begin
chas := x div 60;
x := x mod 60;
if (chas >= 24) then
Writeln('Сегодня Миша спать не ляжет')
else
begin
if (chas < 10) then
str1 := '0' + chas
else
str1 := '' + chas;
if (x < 10) then
str2 := '0' + x
else
str2 := '' + x;
Writeln('Миша ляжет спать в ', str1, ':', str2);
end;
end;
End.