Предмет: Информатика,
автор: vladlenaabashidze
ввести 2 числа. если первое число отрицательное, а второе кратно 5, то увеличить их сумму на 6, в проьивном случае - уменьшить их сумму в 2 раза
Ответы
Автор ответа:
0
var
a, b: integer;
begin
writeln('vvedite 1 chislo:');
readln(a);
writeln('vvedite 2 chislo:');
readln(b);
if (a<0)and((b mod 5)=0) then writeln('resultat ',a+b+6)
else writeln('resultat ',(a+b)/2)
end.
a, b: integer;
begin
writeln('vvedite 1 chislo:');
readln(a);
writeln('vvedite 2 chislo:');
readln(b);
if (a<0)and((b mod 5)=0) then writeln('resultat ',a+b+6)
else writeln('resultat ',(a+b)/2)
end.
Похожие вопросы
Предмет: География,
автор: Tarelka228
Предмет: Химия,
автор: lunabelka443
Предмет: Русский язык,
автор: elmiraslmva
Предмет: Математика,
автор: Анюта565
Предмет: Информатика,
автор: malex99