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

Код до задачі
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 |
Залишити відповідь