Предмет: Информатика,
автор: romalproktar6
Даны две переменные А и В. Если значения не равны, тогда получить новые значения А и В путем сложения данных ранее значений, иначе оставить значения А и В без изменений.
паскаль
Ответы
Автор ответа:
0
program Znanija;
var a, b: integer;
addition: extended;
begin
writeln('Enter the value of A: ');
readln(a);
writeln(sLineBreak, 'Now, enter the value of B: ');
readln(b);
if a<>b then begin
addition := a*b;
writeln(sLineBreak, 'The numbers are not equal to each other: ', addition);
end
else begin
writeln(sLineBreak, 'The numbers are equal to each other: ', a, ', ', b);
end
end.
romavoloboev:
можно?
На аватарке 2 мультяшных персонажа
Похожие вопросы
Предмет: Технология,
автор: nata8yes
Предмет: Русский язык,
автор: rufetshekili
Предмет: Русский язык,
автор: умник434
Предмет: Русский язык,
автор: wwwleetana77
Предмет: Математика,
автор: gail2