128 кб. экран VGA (640X480? 256)
Полагаю здесь ответ нужно написать
При итерациях:
1) s = 3
2) s = 6
3) s = 18;
Вывод 18
Var
A:integer;
Begin
WriteLn('Введите трёзхначное число');
ReadLn(A);
WriteLn(A mod 10, (A div 10) mod 10, A div 100);
End.
5 кбайт = (1024 байт *5 = 5120 байт) , ( 5120*1024 бит = 5242880 бит)
5кбайт = 5120 байт = 5242880 бит
Var a,des,ed,raznost:int64;
begin
read(a);
ed:=a mod 10;
des:=(a mod 100) div 10;
raznost:=des-ed;
write(raznost);
end.