Английский,так как все значения идут на английском и их надо понимать
<em>// PascalABC.NET 3.2, сборка 1359 от 11.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
var h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var x:=real(a);
while x<=b do begin
Writeln(x,' ',x*x);
x:=x+h
end;
end.
<u>Пример</u>
Введите a,b,h: 10 20 0.5
10 100
10.5 110.25
11 121
11.5 132.25
12 144
12.5 156.25
13 169
13.5 182.25
14 196
14.5 210.25
15 225
15.5 240.25
16 256
16.5 272.25
17 289
17.5 306.25
18 324
18.5 342.25
19 361
19.5 380.25
20 400
Var x, n, m, f, s: integer;
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.
var s:string;
i,n,max:byte;
begin
n:=0;i:=1;max:=0;
write('Введите s -> ');readln(s);
while i<=length(s) do begin
if (i=1) or (s[i]=' ') then begin
if i <> 1 then inc(i);
if (i<=length(s))and((s[i]='a') or (s[i]='A')) then
while i<=length(s) do
if s[i]<>' ' then begin
inc(n);
inc(i);
end else break;
end;
inc(i);
if max<n then max:=n;
n:=0;
end;
write('Длина самаго длинного слова на букву A = ',max);
end.