Напишите программу которая в последовательности натуральных чисел определяет произведение двухзначных чисел кратных 4 и оканчивающихся на 4 .программа получает на вход количество чисел в последовательности а затем сами числа
Program psck; var count, comp, num : integer; begin read(count); comp:=1; while count>0 do begin count:=count-1; read(num); if (num div 100 = 0) and (num mod 4 = 0) and (num mod 10 = 4) then comp:=comp*num; end; write('Произведение чисел - ',comp); end.
program Metka; \\ Даем имя метке label M1; \\ Даем имя переменной х var x: shortint; \\ Начало программы begin \\ Выводим текст с ввода числа M1:writeln ('Введите x>100'); \\ Запрос на ввод числа readln(x); \\ Если введенное число <=100 то идем на М1 if x<=100 then GOTO M1 \\ Конец программы end.
Два недочета 1) нет точки с запятой после writeln ('x>100') 2) Неверное условие - должно быть <=, т.к. при х=100 условие х>100 не должно выполняться. 3) Желательно попросить ввести х>100 - слово Введите - не лишнее
var
count, comp, num : integer;
begin read(count); comp:=1; while count>0 do begin count:=count-1; read(num); if (num div 100 = 0) and (num mod 4 = 0) and (num mod 10 = 4) then comp:=comp*num; end; write('Произведение чисел - ',comp); end.