Помогите пожалуйста написать программы по этим двум заданиям (паскаль)
1)введения целые положительные числа пока их сумма меньше 100 найдите количество целых чисел.
2)вычислить выражения:
1)введения целые положительные числа пока их сумма меньше 100 найдите количество целых чисел.
2)вычислить выражения:
More Questions From This User See All
Answers & Comments
//1)
begin
var Sum := 0;
var n := 0;
var Count := 0;
while Sum < 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.