Какая задача решается по следующей программе? Program Test var A,B,C: integer; begin readln ( A,B); C:(A+B)*(B-A)
5-9 класс
|
p>
writeln(C)
end.
С:=(A+B)*(B-A) должно быть ну и тогда С это разность квадратов А и В
Всмысле какая задача? (Ну если я правильно понял вопрос,то математическая)
Тут находится только С по формуле: (A+B)*(B-A) и выводит результат (С) на экран.
Другие вопросы из категории
Даны два целых числа. Разделить каждое число на целое число d.
Найти произведение их остатков от деления.
кол-во положительных, отрицательных и нулевых значений "
символов. Сравните объемы информации, содержащейся в этих сообщениях.
ПОЖАЛУЙСТА ЗАПИШИТЕ С ДАНО: ЗАРАНЕЕ СПАСИБО
Читайте также
Program Test
var A , B, C : integer;
begin
readln (A, B);
C :=(A+B)*(B-A);
writeln (C)
end.
C:(A+B)*(B-A)
writeln(C)
end.
Задача связана с программой паскаль.
var A, B , C: integer;
begin readln (A, B);
C:=(A+B) * (B-A);
writeln (C)
end.
Помогите пожалуйста.Объясните как вы делали
похудеть.по формуле рост минус 100...
написать то легко но учитель сказал что б говорилось на сколько худеть или поправиться надо ...(( ну ни как не могу додуматься(( помогите (( вот сама написаная программа
Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
write('введите массу тела');
read(ves);
write('введите рост в см');
read(rost);
optVes:=rost-100;
if ves>optVes then write('вам необходимо похудеть' );
if ves<optVes then write('вам необходимо поправиться');
if ves=optVes then write ('ваш вес оптимальный')
End.
Program P12;
Var A,B,C, P : integer;
Begin
Writeln(‘ Введите стороны треугольника’);
Readln(A,B,C);
P:=A+B+C;
Writeln(‘ P= ’, P);
End.