Знайти суму цілих чисел від 20 до 30 програмний код в лазарус
СРОЧНО ❗❗❗❗❗❗❗❗❗
Ответ
5/5 (1 оценка)
2
anjikkingg 4 года назад
Светило науки - 94 ответа - 0 раз оказано помощи

Ответ:

procedure TForm1.Button1Click(Sender: TObject);

var i,s:integer;

begin

S := 0;

for i := 20 to 30 do

S := S + i;

Label1.Caption := IntToStr(S);

end;    

Оцените пользу ответа
Мозг Отвечающий

Остались вопросы?

Задать вопрос