Цикл з передумовою

Опрацювати освітній матеріал:

Код до задачі

var a, s: real; n: integer;
begin
a :=StrToFloat (Editl .Text); s := a; n :=1;
while s <=100 do
begin
a := a+3;
s := s+a;
n := n+1;
end;
Label 1.Caption := IntToStr(n); end;

корисні посилання: Лазарус 32 ,Лазарус 64,

Домашнє завданя:

Без комп’ютера: сторінка 220 вправа 3 ,вправа 5 (фото мені на пошту)

Для тих хто з комп’ютером: сторінка 220 вправа 7.

виконані завдання надсилати на :
Тараненко О.С.	okstaranenko@gmail.com
Бурла С.О.	seroha@gmail.com