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