Сор ПО информатике
6 класс 4 четверть

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

а)сумм(a5: b7)

б)срзнач(c4: c7)

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.

var i,s : longint; begin  s: =0;   for i: =100 to 999 do s: =s+i;   writeln(s); end.