А где рисунок на странице 96
Var a,S:integer;
Begin
Writeln("Введите сторону квадрата a");
Readln(a);
S:=sqr(a);
Writeln("Площадь квадрата S=",S);
readln;
end.
Ночь - дочь - дичь - динь - день
//Pascal ABC.NET v3.1 сборка 1172
Var
s:string;
i,k:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then inc(k);
writeln(k);
end.
<span>Пример ввода:
</span><span>Очень много мячей
Пример вывода:
15
</span>