Программы на Кумире прилагаются.
var a: integer;
begin
writeln ('Введите номер пальца');
readln(a);
if a=1 then writeln ('Большой палец');
if a=2 then writeln ('Указательный палец');
if a=3 then writeln ('Средний палец');
if a=4 then writeln ('Безымянный палец');
if a=5 then writeln ('Мизинец');
end.
var x, S: longint; t:text;
begin
assign(t,'input.txt');
reset(t);
S:=0;
while not Eof(t) do
begin
read(t,x);
S:=S+x;
end;
close(t);
assign (t,'output.txt');
rewrite(t);
write(t,'Вот сумма числел из файла input.txt: ', S);
close(t);
End.
Задача будет выполняться при соблюдении условия. Необходимо вводить 2 числа. Это необходимо что бы определить, является ли число целым. (числа нужно вводить одинаковые.
var y,c:real;
a,b:integer;
begin
writeln('Введите 2 одинаковых числа');
readln(a,b);
c:=a/b;
if (a>b) or (a<b) then
y:=c/2
else
y:=c*10;
writeln(y);
<span>end.</span>
Log2(4000000000)=4 байта на точку.
800*600*4=1920000 байт на картинку или 1920000*8=15360000 бит.
15360000/51200=300 секунд