Var a, b, S, k: integer;beginS:=0;k:=0;readln(b);readln (a);while (a<>0) do beginif (a mod b =0)then begin S:=S+1;k:=k+a;end;readln (a);end;if (S>0) and (k>0)then writeln (S, ' ', k)else writeln ('таких чисел нет');end.
Задание 1.
Ответ под цифрой 4
Задание 2.
Ответ под цифрой 4.
Задание 3.
Найдем количество символов в статье:
<span>64·40·64 = 26·5·23·26 = 5 · 215. </span>
Один символ кодируется одним байтом, 210 байт составляют 1 килобайт, поэтому информационный объем статьи составляет
<span>5·215 байт = 5·25 килобайт = 160 Кб. </span>
Первое задание:
var d: array [1..30] of integer;
i,s:integer;
begin
for i:=1 to 30 do
readln d[i];
s:=1;
for i:=2 to 29 do
s:=s*d[i];
writeln(s)
<span>end.</span>