Var a,b,c,d:integer; begin writeln('Введите первое число'); 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
