ребята
С-3(Вар.1 - Задача 2.
uses crt;
var a, b:integer;
begin
write ('Введите число: '); readln(a);
if 3 mod a=0 then writeln ('Это число является делителем 3')
else writeln ('Число не делитель 3');
readln;
end.
Комментарий удален
С-3(Вар.1 - Задача 3)
uses crt;
var x, y, z, f:integer;
begin
write('x='); read(x);
write('y='); read(y);
z:=x*y; f:=z+x;
if x>y then write('f=',f) else write('z=',z);
end.
спасибо

Ответы и объяснения

2014-02-15T12:19:56+04:00
С-3:
1:
uses crt;
var x, y, y1:real;
begin
write('x='); read(x);
y:=4*sqr(x)+1/x-5;
y1:=3*sqr(x)-2;
if x<5 then write('y=',y);
if x>=5 then write('y=',y1);
end.

2:
uses crt;
var a, b:integer;
begin
write ('Введите число: '); readln(a);
if 3 mod a=0 then writeln ('Это число является делителем 3')
else writeln ('Число не делитель 3');
readln;
end.

3:
uses crt;
var x, y, z, f:integer;
begin
write('x='); read(x);
write('y='); read(y);
z:=x*y; f:=z+x;
if x>y then write('f=',f) else write('z=',z);
end.