1. Информатика
  2. Склавиатуры вводятся положительные

Склавиатуры вводятся положительные числа до тех пор пока не будет введено отрицательное число. составить программу, выводящую это число на экран.

DIPPER1112 DIPPER1112    2   18.05.2019 21:40    1

Ответы
Ден4ик11111111 Ден4ик11111111  12.06.2020 02:54

var a:integer;

begin

   read(a);

   while(a>0) do

      readln(a);

   wrileln(a)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Ggogog Ggogog  15.03.2020 05:14
Начертите на бумаге карандашом по этим схемам деталь (сверху вид главный вид, сбоку, а снизу вид сверху)...
PoliKotova02 PoliKotova02  15.03.2020 05:15
Написать программный код с использованием цикла, для нахождения суммы чисел от 1 до N. Число N вводится с клавиатуры....
g11uru g11uru  19.06.2019 23:50
Два примера информационного взаимодействия из различных сфер жизнедеятельности, науки и техники. в каждом из примеров укажите: источник информации; приемник информации; среда (канал)...
skachkoa84 skachkoa84  27.05.2021 08:43
с этими заданиями 1)Автомат получает на вход три двухзначных числа. По этим числам строится новое число по следующим правилам: а) Вычисляются два числа — сумма старших разрядов заданных...
August12345 August12345  27.05.2021 08:49
Програма зчитує з клавіатури 5 чисел через пробіл та заповнує ними список: 1) знайти суму всіх чисел. 2) їх середнє арифметичне. 3) вивести відсортований список у порядку спадання...
Андрей11112222 Андрей11112222  19.11.2019 18:10
Даны строки s и s0. проверить, содержится ли строка s0 в строке s. если содержится, то вывести true, если не содержится, то вывести false. на питоне...
89195188243aMils 89195188243aMils  19.11.2019 19:34
Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i = 3 while i = : print ( ! ) i -= 1...
111120068 111120068  19.11.2019 19:33
Составить программу, которая бы выводила введенное пользователем нецелое число, обозначающее длину в метрах в виде целого количества метров, сантиметров, миллиметров и микрометров...
kristinalyapina1 kristinalyapina1  19.11.2019 19:32
Оформить программу в виде подпрограмм-процедур с параметрами в паскале​...
BoomerLass BoomerLass  03.03.2019 12:54
Текстовое выражение - компьютерные сети. пропускная сети локальной бит/сек - 30000, мбит/сек - 90. 1.определить объем текстового выражения в битах, байтах, килобайтах. 2.определить...

Популярные вопросы