Две задачи в паскале
1) Подсчитать сумму вводимых с клавиатуры чисел до числа большего 11.
2) подсчитать сумму вводимых с клавиатуры чисел до числа не равного 7.
Ответы на вопрос
Ответил nistratov7
0
var k,a:integer;
begin
read(k);
while(k<=11)do begin
a:=a+k;
read(k);
end;
write(a);
end.
//2 задача
var k,a:integer;
begin
read(k);
while(k<>7)do begin
a:=a+k;
read(k);
end;
write(a);
end.
Новые вопросы