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

розміщено в: 8 А, 8 Б | 0

Опрацювати освітній матеріал: Код до задачі var a, s: real; n: integer;begina :=StrToFloat (Editl .Text); s := a; n :=1;while s <=100 dobegina := a+3;s := s+a;n := n+1;end;Label 1.Caption := IntToStr(n); end; корисні посилання: Лазарус 32 ,Лазарус 64, Домашнє завданя: Без … Читати далі