Начало сам напишешь)
тут начало ;
A:=0;
for i:=1 to N/5 do
A:=A+i*5;
write(A);
end.
1кбайт=1024байт
1гбайт=1024кбайт=1024*1024байт=1048576байт
Var s:string;k,i:integer;beginreadln (s);k:=0;for i:=1 to length(s) doif s[i]='d' then k:=k+1;writeln(k);end.
Сходи в книжный магазин или в несколько.. И тадааам
Uses crt;
const n=7;
var a:array[1..n] of real;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
a[i]:=a[i]*0.133;
write(a[i],' ');
end;
end.