// PascalABC.NET 3.2, сборка 1407 от 18.03.2017 // Внимание! Если программа не работает, обновите версию!
begin for var a:=1 to 6 do for var c:=0 to 5 do for var b:=0 to 4 do for var d:=5 to 9 do if (a+c=6) and (b-d=-5) then Write(a,b,c,d,' '); Writeln end.
1)var n:longint; begin readln(n); if n mod 5=0 then writeln('Число N является кратным чилслу 5')else writeln('Чило N не является кратным числу 5' ); end. 2) var a,b,c:longint: begin readln(a,b,c); if (a+b)div 2=c then writeln('Число C является средним арефметическим чисел A и B') else writeln(' Число C является средним арефметическим чисел A и B') else writeln('Число C не является средним арефметическим чисел A и B '); end. 3) var a:longint; begin write('Сколько вам лет?'); readln(a); if a<14 then write('Вам еще рано получать паспорт?') else write('Поздравляю! Вы гражданин России!'); end. 4) var a:extended; begin readln(a); if (a>36)and(a<37) then writeln('Вы здоровы') else writeln('Вы больны'); end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=-1.32; var b:=1.49; var h:=0.11; var y1:=-14.0; var y2:=17.0; var k:=0; var x:=a; while x<=b do begin var y:=Tan(x); if (y>=y1) and (y<=y2) then begin Writeln('x=',x:5:2,' y=',y:7:4); Inc(k) end; x+=h end; Writeln('Найдено значений: ',k) end.
// Внимание! Если программа не работает, обновите версию!
begin
for var a:=1 to 6 do
for var c:=0 to 5 do
for var b:=0 to 4 do
for var d:=5 to 9 do
if (a+c=6) and (b-d=-5) then Write(a,b,c,d,' ');
Writeln
end.
Результат
1055 1156 1257 1358 1459 2045 2146 2247 2348 2449 3035 3136 3237 3338 3439 4025 4126 4227 4328 4429 5015 5116 5217 5318 5419 6005 6106 6207 6308 6409