Задача 8 Урок 14.1
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- для вывода очередной строки используйте процедуру.
var a,b,c:integer; procedure podprogsum(q,w,e:integer); begin if (q=w) and (w=e) then writeln('chisla ravni '); if (q=w) and (e<w) then writeln('ne opredelit '); if (q<w) and (w=e) then writeln('ne opredelit '); if (q=e) and (w<e) then writeln('ne opredelit ') else if (q>w) and (q>e) then writeln('a bolshe - ',q); if (w>q) and (w>e) then writeln('b bolshe - ',w); if (e>q) and (e>w) then writeln('c bolshe - ',e); readln(); end; begin writeln('vvedite a'); readln(a); writeln('vvedite b'); readln(b); writeln('vvedite c'); readln(c); podprogsum (a,b,c); end.
Вывод консоли:
vvedite a 10 vvedite b 20 vvedite c 30 c bolshe - 30
- Log in to post comments
- 51 reads