Дано число а заменить это число удвоенным произведением если оно нечетное. Помогите пж...

0 голосов
55 просмотров

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


Информатика (12 баллов) | 55 просмотров
Дано ответов: 2
0 голосов

Ошибка внизу там где вывод данных на экран

writeln ('удвоенное нечетно число =', a);

а так в целом ты молодец.

(337 баллов)
0

блин точно спасибо

0 голосов

12356 ворот и и гттол
Олтр

(30 баллов)