Информатика, опубликовано 2018-08-22 23:53:39 by Гость
С клавиатуры введите три числа a,b,c введите те из них которые делятся на 2. Написать надо по паскалю
Ответ оставил Гость
Program Program1;
Var
a,b,c:integer;
begin
writeln(Введите значение a:);
readln(a);
writeln(Введите значение b:);
readln(b);
writeln(Введите значение c:);
readln(c);
writeln(Делятся на 2 без остатка:);
If (a mod 2)=0 then writeln(a);
If (b mod 2)=0 then writeln(b);
If (c mod 2)=0 then writeln(c);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на