tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу, в которой
Напишите программу, в которой осуществляется ввод целых чисел, пока не будет введен 100, используя циклы (паскаль)
pakapika
3 24.08.2019 19:40
0
Ответы
миру3
05.10.2020 17:14
Ввод чисел продолжается, пока не введено число 100.
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.
ПОКАЗАТЬ ОТВЕТЫ
aruukealtymysh
05.10.2020 17:14
Var a: integer;
begin
read(a);
while a <> 100 do
read(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
wardian
01.10.2019 15:30
Как называется программа в которой обрабатывают это фото...
snejanas1
01.10.2019 15:30
Даны два числа a,b,c. найти их среднее арифметическое....
Aliotu
20.09.2019 02:10
Перевести из десятичной в римскую систему счисления 39, 216,791...
Аннасherry
20.09.2019 02:10
Какое значение примет переменная х в результате выполнения следующих фрагментов программ? 1) x: =1; while x 10 do x: =x+3; x: =x+1; 2) x: =1; while x 10 do begin x: =x+3; x: =x+1;...
Хурем
20.09.2019 02:10
Какой минималный объём памяти (в кбайт) нужно, что бы можно было сохранить любое растровое изображение размером 64 на 128 пикселов при том, что в изображении могут исполльзоваться...
syaninp087af
20.05.2020 09:23
Укажите отношение для пары «ввод и форматирование»: 1) является разновидностью 2) является элементом множества 3) входит в состав 4) предшествует...
furi2
20.05.2020 09:22
Составьте программу нахождения количества натуральных целых чисел, не превышающих 100 и кратных 5...
Darya17061
18.10.2020 10:35
в сообщении 12 символов для его записи используется 64 символьный алфавит найди информационный обьем сообщения в битах...
Аврoра
18.10.2020 10:34
Соотнеси бинарный код с его изображением. 011010100001010011010100011100110001НазадПроверить...
Slava1432
07.05.2020 21:12
Определите результат работы функции при входном значении, равном 123456: function qq(x: integer):integer; var i, s: integer; begin s:=0; for i:=1 to 3 do begin s := s + x mod 10;...
Популярные вопросы
Книги дениска размечтался главные герои...
2
Агностики отрицают 1) рациональное познание, 2) возможность обрести истину, 3)...
2
Уженщины первая группа крови и отрицательный резус-фактор. у мужчины третья группа...
1
Втреугольнике abc внешний угол при вершине b равен 124°,ac=bc.найдите градусную...
3
Дано натуральное число. определить: а) сколько раз в нем встречается цифра а;...
1
Начерти квадрат , периметр которого равен 24 см...
3
Боковые стороны равнобедренного треугольника равны 10.может ли основание быть...
2
Вкакой книге может встретиться текст удивительные животные...
3
Сколько литров 80 % -ного раствора спирта и сколько литров 50 % - ного раствора...
3
Длиной 40 см подвешен горизонтально к двум динамометрам и помещен в горизонтальное...
3
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.
begin
read(a);
while a <> 100 do
read(a);
end.