Program CrazyCoder;
var a, b: integer; c: real;
begin readln(a, b); if(a = 0) or (b = 0) then writeln('Делить на ноль нельзя!') else begin c := a / b; writeln(c); end; readln;end.
Program mass;
uses
crt;
var
a: array [1..10] of integer;
i: integer;
begin
randomize;
writeln('Исходдный массив: ');
for i := 1 to 10 do
begin
a[i] := random(20) - 10;
write(' ', a[i], ' ');
end;
Writeln;
writeln('После замены отрицательных чисел на 0:');
for i := 1 to 10 do
begin
if a[i] < 0 then a[i] := 0;
write(' ', a[i], ' ');
end;
writeln;
end.
ща переделаю не увидел что ті изменила задание
Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.
Var
A,i,Max:integer;
Begin
Max:=0;
For i:= 1 to 10 do
Begin
Read(a);
if (Abs(A) mod 10 = 7)and(A>Max) then Max:=A;
End;
WriteLn('Max = ',Max);
End.
42
.................................................