15 КиБ * 1024 = 15360 байт, столько же символов
15360 / (40 * 60) = 6.4 ≈ 7 листов
Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end.
Практики не было давно.
<span>a%5==0, </span><span>это проверка кратности, "%" - это действие которое даёт отстаток от деления на число, если остатка нет, т.е. он равен нулю, то "а" делится на число.</span>
<span>а>max тут думаю понятно, сверка с текущим максимумом)</span>
<span>если оба условия выполняются, то объявляется новый максимум)</span>
<span>обработки информации.</span>
Program P7;
var S:String; n,k1,k2,k3,i:byte;
Begin
writeln('Введите строку:');
readln (S);
n:=length (S);
k1:=0; k2:=0; k3:=0;
For i:=1 to n do
case S[I] of
' ' : k1:=k1+1;
',',';','.','!',':','?' : k2:=k2+1;
'b','c','d','f','g','k','l','m','n','p','r','s','t': k3:=k3+1
end;
Writeln ('kolicestvo clov = ',k1+1);
Writeln ('kolicestvo znakov prepinania = ',k2);
writeln('kolicestvo soglasnih = ', k3);
readkey
end.
Пример:
Введите строку:
na ulite sneg.
kolicestvo clov = 3
kolicestvo znakov prepinania = 1
kolicestvo soglasnih = 6