С клавиатуры введите три числа a,b,c введите те из них которые делятся на 2. Написать надо по паскалю
Answers & Comments
denisov7
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.
Answers & Comments
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.