Программа 1. program p1; var x:integer; begin write ('x='); read (x); if x>0 then writeln ('Число x положительное.'); if x=0 then writeln ('Число x нейтральное.'); if x<0 then writeln ('Число x отрицательное');end. Программа 2. program p2; var x,y,z,s:real; begin write ('x='); read (x); write ('y='); read (y); write ('z='); read (z); if x>0 then s:=s+x; if y>0 then s:=s+y; if z>0 then s:=s+z; if x+y+z<=0 then writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.'); if x+y+z>0 then writeln ('s=', s); end.
uses GraphABC; Var a,h,x,y:integer; c:char; begin writeln('Read or random? n/r'); repeat readln(c); until (c='n') or (c='r'); if c='r' then begin a:=random(200); writeln('Длина ребра=',a,', Объём=',power(a,3)); end else begin readln(a); writeln('Объём=',power(a,3)); end; x:=windowwidth div 2; y:=round(windowheight*1/3); line(x,y,x,y+a); line(x+a,y,x+a,y+a); line(x,y+a,x+a,y+a); line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2); line(x,y,x+a,y); line(x+a div 2,y+a div 2,x+a div 2,y-a div 2); line(x,y,x+a div 2, y-a div 2); line(x,y+a,x+a div 2, y+a div 2); line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2); line(x+a div 2+a, y-a div 2,x+a,y); line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a); line(x+a div 2+a, y-a div 2+a,x+a,y+a); end.
Пример ввода: n 16 Пример вывода: Объём=4096
//2
Var X,P:integer; beginwrite('X:'); readln(X); write('P:'); readln(P); if not(odd(X)) then writeln('Кратно 2'); if X mod 3=0 then writeln('Кратно 3'); if X mod P=0 then writeln('Кратно ',P); end.
Пример ввода: 18 6 Пример вывода: Кратно 2 Кратно 3 Кратно 6
program p1;
var x:integer;
begin
write ('x=');
read (x);
if x>0 then
writeln ('Число x положительное.');
if x=0 then
writeln ('Число x нейтральное.');
if x<0 then
writeln ('Число x отрицательное');end.
Программа 2.
program p2;
var x,y,z,s:real;
begin
write ('x=');
read (x);
write ('y=');
read (y);
write ('z=');
read (z);
if x>0 then
s:=s+x;
if y>0 then
s:=s+y;
if z>0 then
s:=s+z;
if x+y+z<=0 then
writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.');
if x+y+z>0 then
writeln ('s=', s);
end.