Помогите пожалуйста написать программки по этим двум заданиям (паскаль)1)введения целые

Помогите пожалуйста написать программки по этим двум заданиям (паскаль)
1)введения целые положительные числа пока их сумма меньше 100 найдите количество целых чисел.
2)вычислить выражения:

Задать свой вопрос
1 ответ

//1)

begin

 var Sum := 0;

 var n := 0;

 var Count := 0;

 

 while Sum lt; 100 do

 begin

   n += 1;

   Sum += n;

   Count += 1;

 end;

 

 Count -= 1;

 

 Print('Count =', Count)

end.

//2)

begin

 var y:=0;

 

 for var i:=1 to 4 do

   y+=5*i*i;

 

 y.Println;

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт