«Условный оператор». Написать программу на языке Паскаль:
Даны четыре числа. Определить количество чисел,
которые больше 10.
- var a,b,c,d:integer;beginwriteln(‘Введите первое число’);readln(a);writeln(‘Введите второе число’);readln(b);writeln(‘Введите третье число’);readln(c);writeln(‘Введите четвертое число’);readln(d);if a > 10 then writeln(‘Число ‘,a,’ больше 10′);if b > 10 then writeln(‘Число ‘,b,’ больше 10′);if c > 10 then writeln(‘Число ‘,c,’ больше 10′);if d > 10 then writeln(‘Число ‘,d,’ больше 10′);
end.