Дано число а заменить это число удвоенным произведением если оно нечетное. Помогите пж скок сижу не могу сделать
Program Xz;
var a: integer;
begin;
writeln ('Введите число');
readln (a);
if a mod 2=0
then
writeln ('Число четное')
else
a:=a*2;
writeln ('Удвоенное нечетное число');
readln;
end.
вот здесь где-то ошибка
Ответы
Ответ дал:
0
Ошибка внизу там где вывод данных на экран
writeln ('удвоенное нечетно число =', a);
а так в целом ты молодец.
Ответ дал:
0
блин точно спасибо
Ответ дал:
0
12356 ворот и и гттол
Олтр
Олтр
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад