помогите,задача по паскалем
5-9 класс
|
Дано трехзначное число А,если вторая цифра числа четная,то ее заменить на ноль
program v4_z2;
var a,z,x,c,v,n,m,o :integer;
begin
readln (a);
z := a div 100; {1}
x := a mod 100;
c := x div 10; {2}
if (c mod 2)= 0 then c:=0;
writeln(c);
readln;
end.
Другие вопросы из категории
Напечатайте на экране:
<имя 1>+<имя 2>=<отношения>
помогите на паскале
цифрового звука на любом цифровом носителе,записанного счастотой 11кгц
а) ежедневной чистке зубов
б) пришивании оторванной пуговицы
Читайте также
После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА.
22. В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, правда ли, что пер-вый отрезок не слишком длинен, чтобы образовать с другими двумя отрезками треугольник. Указание: Для этого его длина должна быть меньше суммы длин двух других отрезков. Замечание: Пока не думайте о том, что слишком длинными могут быть второй или третий отрезки. Об этом – задание из 5.5.
1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,
ПОМОГИТЕЕ
купить на эти деньги?"
напишите пожалуйста как составить это в паскале) буду благодарна:)
потом положительные числа, вывести результат