ОГ
Оксана Гусева
Напишите программу на Pascal
Блин, ребят, который раз прошу, помогите пожалуйста.
Блин, ребят, который раз прошу, помогите пожалуйста.
цена? Пишите на почту или в асю 586178755
Паскаль уже забыл, но кажись так.
program
var S, K, A, SR :Integer;
begin
S := 0;
K := 0;
A := 50;
repeat
S := S + A;
K := K + 5;
A := A + 1;
until a > 150;
SR = 2 * S;
writeln("SR = " , SR);
writeln("K = ", K);
end
var
s,k,a,sr:integer;
begin
repeat
readln(s);
readln(k);
readln(a);
s:=s+a;
k:=k+5;
a:=a+1
until a<=150;
sr:=s*2;
write(sr);
write(",");
writeln(k);
end;