1) Program Pr; var a:integer; Begin Writeln('Введите число'); Readln(a); if a>0 then writeln('Число положительно'); if a=0 then writeln('Число является 0-эм'); if a<0 then writeln('Число отрицательно'); end.
2)Program Pr; var a,b:integer; Begin Writeln('Введите 2 заданых числа'); Readln(a); Readln(b); if a>b then b:=10 else a:=10; writeln(a); writeln(b); end.
PascalABC.Net const m=8; n=11; var a,b,c:array[1..m,1..n] of integer; i,j:integer; begin Randomize; Writeln('Исходный массив A'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('Исходный массив B'); for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=Random(41)-20; Write(b[i,j]:4) end; Writeln end; Writeln('Результирующий массив С'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=a[i,j]+b[m-i+1,n-j+1]; Write(c[i,j]:4) end; Writeln end end.
//Это можно стереть. Если в N есть 0 то тогда программа выведет NO. program z1; var b,c,d,i,s,l:integer; a:string; begin read(a); b:=length(a); s:=StrToInt(a); c:=0; for i:=1 to b do for i:=1 to b do begin d:=StrToInt(a[i]); if d=0 then l:=1; end; if l=0 then begin for i:=1 to b do for i:=1 to b do begin d:=StrToInt(a[i]); if (s mod d)=0 then c:=c+1; end; end else write('NO');if (l=0) and (c=b) then write('T'); if (l=0) and (c<>b) then write('P'); end.
1) Program Pr;
var a:integer;
Begin
Writeln('Введите число');
Readln(a);
if a>0 then writeln('Число положительно');
if a=0 then writeln('Число является 0-эм');
if a<0 then writeln('Число отрицательно');
end.
2)Program Pr;
var a,b:integer;
Begin
Writeln('Введите 2 заданых числа');
Readln(a);
Readln(b);
if a>b then b:=10
else a:=10;
writeln(a);
writeln(b);
end.
(Проверено и откомпелировано с