Урок №10 Задание 2
Primary tabs
Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).
program Pr_10_2; var a,b,c,d,i:integer; begin i:=0; writeln('Введите четыре числа:'); readln(a,b,c,d); writeln('Числа которые делятся на 4: '); if (a mod 4 = 0) and (i<=2) then begin i:=i+1; writeln('A=',a); end; if (b mod 4 = 0) and (i<=2) then begin i:=i+1; writeln('B=',b); end; if (c mod 4 = 0) and (i<=2) then begin i:=i+1; writeln('C=',c); end; if (d mod 4 = 0) and (i<=2) then begin i:=i+1; writeln('D=',d); end; readln(); end.
Консоль:
Введите четыре числа: 4 4 4 4 Числа которые делятся на 4: A=4 B=4 C=4
- Log in to post comments
- 296 reads