Var a,b,c:integer;;
begin
writeln('введите три числа');
readln(a,b,c);
writeln('сумма первого и третьего числа 'a+c);
writeln('произведение первого и второго числа 'a*b);
end.
№1 - вариант 2 (60 символов*16 бит=960 бит)
№2 - вариант 1 ( 66 символов*8 бит = 528 бит= 66 байт)
№3 - вариант 4 ( 67 символов*16 бит= 1072 бит)
№4 - вариант 3
(всего символов: 64*40*48= 122880, (122880*8 бит)/8/1024= 120 Кбайт)
№5 - вариант 2
(всего символов 64*40*64= 163840, (163840*16 бит)/8/1024= 320 Кбайт)
Часы на циферблате: если использовать 24- часовую, то 8+7=15
Var
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
Program al;
var n:integer;
begin
writeln('n=');
readln(n);
if (n >9) and (n<100) then writeln(n);
if (n > 99) and (n<1000) then writeln(n div 10);
if (n >1000) and (n<10000) then writeln(n div 100);
if n>10000 then writeln(n div 1000);
readln;
<span>end.</span>