запишите в соответствии с правилами языка паскаль следующие выражения : 6 a + 15 ab -13b, (a+b)(a-b),
Ответы
Ответ дал:
0
program 1rst;
uses Crt;
var a,b,output1,output2:real;
begin
write('Введите а= ');Readln(a);
write('Введите b= ');Readln(b);
output1:=6*a+15*b-13*b;
output2:=(a+b)*(a-b);
writeln(output1:5:2,output:8:2);
readln;
end.
uses Crt;
var a,b,output1,output2:real;
begin
write('Введите а= ');Readln(a);
write('Введите b= ');Readln(b);
output1:=6*a+15*b-13*b;
output2:=(a+b)*(a-b);
writeln(output1:5:2,output:8:2);
readln;
end.
antydemant:
А в чем проблема разделить формулу
в смысле? мне просто нужен точный ответ
Вам нужно именно два выражения записаных отдельно в каждой програме ?
да
program 1rst;
uses Crt;
var a,b,output1:real;
begin
write('Введите а= ');Readln(a);
write('Введите b= ');Readln(b);
output1:=6*a+15*b-13*b;
writeln(output1:5:2);
readln;
end.
uses Crt;
var a,b,output1:real;
begin
write('Введите а= ');Readln(a);
write('Введите b= ');Readln(b);
output1:=6*a+15*b-13*b;
writeln(output1:5:2);
readln;
end.
1-я а ниже 2-я program 2nd;
var a,b,output2:real;
begin
write('Введите а= ');Readln(a);
write('Введите b= ');Readln(b);
output2:=(a+b)*(a-b);
writeln(output:5:2);
readln;
end.
var a,b,output2:real;
begin
write('Введите а= ');Readln(a);
write('Введите b= ');Readln(b);
output2:=(a+b)*(a-b);
writeln(output:5:2);
readln;
end.
спасибо
если можете помогите я ещё вопросы задавала
очень нужно
кто нибуууудь помогите
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад