Предмет: Информатика,
автор: ANNTII
Помогите пожалуйста составить программу!
Приложения:
Ответы
Автор ответа:
0
var
a, b: integer;
begin
write('введите a,b ');
readln(a, b);
if ((a + b) > 0) and ((a + b) mod 10 = 3) then
writeln((a + b) * 2)
else
writeln(a + b);
end.
Тест №1
введите a,b 10 3
26
Тест №2
введите a,b 5 6
11
a, b: integer;
begin
write('введите a,b ');
readln(a, b);
if ((a + b) > 0) and ((a + b) mod 10 = 3) then
writeln((a + b) * 2)
else
writeln(a + b);
end.
Тест №1
введите a,b 10 3
26
Тест №2
введите a,b 5 6
11
Автор ответа:
0
Спасибо вам огромное!
Автор ответа:
0
Пожалуйста, успехов!
Похожие вопросы
Предмет: Химия,
автор: sabinautelova
Предмет: Английский язык,
автор: nosirtv
Предмет: Геометрия,
автор: annz60
Предмет: Математика,
автор: mashamasha987