(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
Ну как-то так у меня вышло на скорую руку
Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
1)162*44*60=427680(символов)
2)427680*8=3421440(бит)=427680(байт)=417,6(Кбайт)-нужно для размещения информационного сообщения
Ответ:нет,не достаточно
Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>