program dadaya;
var a:integer;
b:real;
begin
write(' введите заданное число ');
read(a);
if a mod 2 = 0
then b:= a / 4
else b:= a * 5;
write(' Полученный ответ = ', b:5:2);
end.
Объяснение:
program dadaya;
var a:integer;
b:real;
begin
write(' введите заданное число ');
read(a);
if a mod 2 = 0
then b:= a / 4
else b:= a * 5;
write(' Полученный ответ = ', b:5:2);
end.
Объяснение: