1. Информатика
  2. Программа запрашивает

Программа запрашивает 4 числа и проверяет, сколько в них равны 10.pascalabc

3482785525 3482785525    1   06.10.2019 13:10    1

Ответы
55brb 55brb  27.08.2020 13:56

var

   i, kol, ch: longint;

begin

   kol := 0;

   for i := 1 to 4 do  

   begin

       readln(ch);

       if ch = 10 then inc(kol);

   end;

   writeln('ответ: ', kol);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Магомед05111 Магомед05111  25.03.2020 10:55
В ячейку D1 была введена формула: =(A1+B1+C$1)/2 затем формулу скопировали в ячейкb D2 и D3. Запишите, что получилось в результате в этих ячейках. числа запишите подряд без пробела....
serega1808s serega1808s  25.03.2020 10:55
Активна комірка - це комірка:Выберите один ответ:a. формула в якій містяться посилання на вміст залежної комірки;b. в якій виконується введення команд.c. містить формулу, що включає...
Maks2222222222 Maks2222222222  25.03.2020 10:54
Базова алгоритмічна структура, призначена для організації багаторазового виконання набору команд це ...Выберите один ответ:a. повторенняb. розгалуженняc. слідування​...
опшпищи опшпищи  25.03.2020 10:51
Выбери верный ответ. 5.123.172.183 — доменная система имён цифровая адресация...
satokostanay satokostanay  25.03.2020 10:51
. Какое действие выполняет оператор WRITE? а) считывает значения с экрана б) целочисленное деление в) вывод на экран г) вычисление квадратного корня...
ДашаКошкина1 ДашаКошкина1  22.04.2020 10:38
ОЧЕНЬ-ОЧЕНЬ ОЧЕНЬ-ОЧЕНЬ напишите программу которая будет запрашивать ввод числа и вывод числа с клавиатуры считает квадрат и даёт результат​...
OlesyaKotova1 OlesyaKotova1  02.04.2022 10:57
Укріплене поселення, жителі якого спільно захищали свої інтереси та прилеглі до міста земельні ділянки? А поліс, Б агора, В скене , Г метрополія....
kkarimov111 kkarimov111  02.04.2022 10:57
) Через току О перетину діагоналей квадрата ABCD до його площини проведено перпендикуляр SO = 8 см. Знайти синус кута мiж прямою SC i площиною квадрата, якщо діагональ квадрата дорівнює...
Unicorn5679 Unicorn5679  02.04.2022 10:55
Який король здійснив авіньйонський полон пап...
Зубканай Зубканай  02.04.2022 10:54
Внести множник під знак кореня 8√5=...

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