1. Информатика
  2. На вход числа.признак

На вход числа.признак ввода число 0.найдите количество чисел,которые меньше 1000

juliadzyombak juliadzyombak    3   06.10.2019 05:00    1

Ответы
Assassin5510 Assassin5510  09.10.2020 23:02

var a,k:integer;

begin

repeat

write ('Введите число: ');

readln (a);

if (a<1000) and (a<>0) then k:=k+1

until a=0;

writeln ('Количество чисел, меньше 1000, равно: ',k)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
МаринаБалыгина505212 МаринаБалыгина505212  13.08.2019 18:30
Можете составить алгоритм в виде блок схем. решите . есть 9 монет.одна из них фальшивая , она легче настоящей (все настоящие весят одинаково).как за два взвешивания на чашечных...
semenem15 semenem15  26.09.2019 21:14
Повідомлення займає 3 сторінки й має довжину двійкового коду 7950 байт. визначте, скільки рядків на сторінці, якщо в кожному рядку 25 символів і використане кодування unicode....
Mari2909 Mari2909  26.09.2019 22:20
Напишите программу на языке pascal, которая подсчитывает количество чисел кратных 8 в промежутке от n до 100...
katakoval katakoval  26.09.2019 21:17
Паскаль.авс заданы три точки на плоскости a(x1,y1), b(x2,y2) и c(x3,y3). нужно определить, можно ли провести треугольник через эти три точки. если да, то составьте программу вычисления...
winston63ru winston63ru  26.09.2019 22:20
Вприложении pascal abc напишите программу: – для вычисления по формуле a=пr 2, если даны два ненулевых числа....
рпрситмиср рпрситмиср  02.07.2019 16:10
Составить программу paskal для: 1)найти стороны прямоугольника, у которого известны периметр и площадь 2)дано трехзначное натуральное число. определить, является ли сумма его цифр...
sbengardt sbengardt  26.10.2020 17:00
Составьте блок-схему алгоритма вычисления объема, площади полной поверхности и суммы ребер прямоугольного параллелепипеда со сторонами k, m и n. Формулы: объема – V=a*b*h, площади...
Gggggggggggg22 Gggggggggggg22  26.10.2020 17:00
1) Задача Копирование файла. Создать на диске текстовый файл и скопировать его на экран 2) Задача фильтр. Вывести на экрантолько числа из созданного вами на диске текстового файла,...
nasty1512200229 nasty1512200229  26.10.2020 16:59
Запишите представление целого десятичного числа 12 в беззнаковом 8-разрядном представлении. Запишите представление целого десятичного числа 12 в беззнаковом 16 - разрядном представлении...
ta2001nja ta2001nja  12.02.2021 18:34
Решите алгебраические выражение по информатике...

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