Найдите значения a,b после выполнения фрагмента. Напишите программу на языке Паскаль
272
278
Ответы на вопрос:
ответ
пишу на PascalABC
Объяснение:
var
a, b: integer;
begin
Writeln('Введите а '); Read(a);
Writeln('Введите б '); Read(b);
if a > b then
begin
a := (a mod b) * 2;
writeln('Выражение со значемем "а" равно: ', a)
end
else
begin
b := b * b - 4 * a;
writeln('Выражение со значемем "b" равно: ', b)
end;
end.
Популярно: Информатика
-
pinjan200424.11.2022 06:23
-
lol0989023.06.2023 10:18
-
serg19720010.05.2022 07:25
-
lagis917.12.2022 11:30
-
SvinkaPeppa77725.04.2023 00:08
-
Naruto7xokage21.05.2020 20:44
-
Тьома1105.01.2022 20:25
-
МашаИвлеева78914.03.2021 18:57
-
Лера10022327.05.2023 13:44
-
mixakov0519.02.2022 07:34