Помогитеvar k,s :integer;begins:=0k:=0while k меньше 30 do begink:=k+3;s:=s+k;end;write(s);end.
Помогите
var k,s :integer;
begin
s:=0
k:=0
while k <30 do begin
k:=k+3;
s:=s+k;
end;
write(s);
end.
Гость
Ответ(ы) на вопрос:
Гостьа с чем помочь-то надо?
Не нашли ответ?
Похожие вопросы