Регистрация
eldar6213
03.03.2023 11:43
Информатика
Есть ответ 👍

Уведіть з клавіатури 4 цілих числа. Обчислити добуток і кількість чисел менших 7, вивести повідомлення, якщо таких чисел немає

145
425
Посмотреть ответы 1

Ответы на вопрос:

amurti
amurti
4,5(18 оценок)

uses crt;

var a,k,k1: integer; beginwriteln('введите a'); readln(a); k1: =1; k: =0; while (a< > 0) and (k1< 1000) dobeginif (a< 0) and (a mod 2=0) and (abs(a)< =30000) then k: =k+1; k1: =k1+1; readln(a); end; writeln('k=',k); readln; end.

Популярно: Информатика