logo
Войти Регистрация Спроси ai-bota


Bonyashechka
05.12.2020 07:06

Водится положительное число прекратить ввод когда сумма введёных чисел превысит 100

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Сырочег
Сырочег
30.08.2022 14:51
Решить , 8 класс(pascal abc) №3. дан диаметр окружности d. найти ее длину l = 3.14*d. №4. дана длина ребра куба a. найти объем куба v = a 3 и площадь его поверхности s = 6a 2 ....
annajortsorensen
annajortsorensen
13.10.2020 16:52
Запишите в развернутом виде формулы а) 327,48 б) 3616...
adonda994
adonda994
29.04.2020 08:01
Завдання на Python Складіть проект для малювання качечки: (ЗО; 0), (10; 20), (-10; 20), (ЗО; 50), (10; 80), (-30; 70), (-50; 80), (-30; 40), (-60; ЗО), (-30; ЗО), (-50; 20), (-50;...
elliaana
elliaana
21.05.2022 05:27
Дубль два. Найти значения переменных. ответы 3 и -9 не подходят....
palechov01
palechov01
08.10.2020 19:16
Завдання на Python Складіть проект виконання качечки: (30,0) (10,20) (-10,20) (30,50) (10,80) (-30,70) (-50,80) (-30,40) (-60,30) (-30,30) (-50,20) (-50,-20) (-20,-30) (-40,-40)...
maks694
maks694
25.02.2020 03:36
Не могу понять что неправильно program fm2; var a,b,c: real; p,s: real; begin writeln (a,b,c); readln(a,b,c); p: =(a+b+c)/2; writeln(p,s); s: = (p*(p-a)*(p-b)*(p-c)); writeln(s,p);...
Artem030405
Artem030405
21.04.2023 22:18
Не могу понять что неправильно program fm2; var a,b,c: real; p,s: real; beginwriteln (a,b,c); readln(a,b,c); p: =(a+b+c)/2; writeln(p,s); s: = (p*(p-a)*(p-b)*(p-c)); writeln(s,p);...
abaevadilnaz
abaevadilnaz
14.09.2022 13:57
Написать программу для 1 и 2 номера ​...
visaenko1974
visaenko1974
18.12.2020 15:30
составить блок-схему алгоритма нахождения значения выражения y= {2x+4 при x или равно 2 {3x при x 2 20...
Вероника13411
Вероника13411
05.05.2021 10:44
Дан квадрат с вершинами в точках (0, 0), (0, 1), (1, 1), (1, 0). вычислить наибольшее из расстояний от точки с координатами (x, y) до вершин данного квадрата. на c++...
Ответ:
николаева7
16.06.2020 12:03

uses crt;
var ch,s:integer;
begin
s:=0;
while s < 101 do
begin
readln(ch);
if ch > 0 then
s:=s+ch;

end;
end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота