ПОМОГИТЕ В ЧЕМ ОШИБКА!!
program ZADACHA1;
var
a,b,c,d,d1,e:integer;
x,y,k,l:real;
begin
WRITELN('Цыбулак Максим');
READLN(a);
READLN(b);
c:=a+b;
e:=a*b;
d:=a-b;
k:=a/b;
d1:=b-a;
l:=b/a;
WRITELN('a+b=',c);
WRITELN('a-b=',d);
WRITELN('b-a=',d1);
WRITELN('a*b=',e);
WRITELN('a/b=',k);
WRITELN('b/a=',l);
m;=SQR(a);
n;=SQR(b);
o;=SQRT(a);
p;=SQRT(b);
WRITELN('квадрат числа',a,'=',m);
WRITELN('квадрат числа',b,'=',n);
WRITELN('корень числа',a,'=',o);
WRITELN('корень числа',b,'=',p);
end.
Ответы на вопрос
Ответил leon123
0
Подправил,решение гораздо меньше и используется меньше переменных
program ZADACHA1;
var
a,b,c:integer;
Begin
Writeln('Цыбулак Максим');
Readln(a);
Readln(b);
Writeln('a+b=',a+b);
Writeln('a-b=',a-b);
Writeln('b-a=',b-a);
Writeln('a*b=',a*b);
Writeln('a/b=',a/b);
Writeln('b/a=',b/a);
Writeln('Квадрат числа ',a,' = ',sqr(a));
Writeln('Квадрат числа ',b,' = ',sqr(b));
Writeln('Корень числа ',a,' = ',sqrt(a));
Writeln('Корень числа ',b,' = ',sqrt(b));
end.
program ZADACHA1;
var
a,b,c:integer;
Begin
Writeln('Цыбулак Максим');
Readln(a);
Readln(b);
Writeln('a+b=',a+b);
Writeln('a-b=',a-b);
Writeln('b-a=',b-a);
Writeln('a*b=',a*b);
Writeln('a/b=',a/b);
Writeln('b/a=',b/a);
Writeln('Квадрат числа ',a,' = ',sqr(a));
Writeln('Квадрат числа ',b,' = ',sqr(b));
Writeln('Корень числа ',a,' = ',sqrt(a));
Writeln('Корень числа ',b,' = ',sqrt(b));
end.
Новые вопросы
Физика,
2 года назад
Математика,
2 года назад
Математика,
9 лет назад
Литература,
9 лет назад
Физика,
10 лет назад