Определяем количество символов на странице:
30*40=1200 байт=9600 бит (т.к. 8 бит =1 байту)
файл 640 кбайт равен
640*1024=655360 байт
определим количество страниц которое поместится в файл
655360/1200=546,13 страницы
следовательно, в файл поместиться 546 страниц
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74
На примере DelphiVarX:integer; Button_Click() BeginS:=0;x:=StrtoInt(Text1.text);x:=x mod 10; Label1.caption(InttoStr(x)); End; Результат: 5
Var x: Integer;
begin
readln(x);
writeln(((3/abs(x))+(exp((1/3) * ln(x))))/1);
end.