Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var i: integer;
begin
for i: =1 to 1000 do
if (i mod 3=0) or (i mod 7=0) then write(i);
end.
uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел: ',min); readln; end.
1 input a
2 input b
3 input c
20 if a> b then goto 60
30 if b> c then goto 110
40 max=с
50 goto 120
60 if a> c then goto 90
70 max=с
80 goto 120
90 max=a
100 goto 120
110 max=b
120 if a< b then goto 160
130 if b< c then goto 210
140 min=с
150 goto 220
160 if a< c then goto 190
170 min=с
180 goto 220
190 min=a
200 goto 220
210 min=b
220 print min*max
один, два, три, четыре, пять
12345
Популярные вопросы