Информатика, опубликовано 2018-08-22 22:08:54 by Гость
Паскаль!!! Даны четыре целых числа, сколько из них четные. Решение
Ответ оставил Гость
Var a,b,c,d,x:integer;
begin
x:=0;
wirteln(Введите число 1);
readln(a);
wirteln(Введите число 2);
readln(b);
wirteln(Введите число 3);
readln(c);
wirteln(Введите число 4);
readln(c);
if a div 2 = 0 then x:=x+1;
if b div 2 = 0 then x:=x+1;
if c div 2 = 0 then x:=x+1;
if d div 2 = 0 then x:=x+1;
writeln (Четных чисел= ,x)
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на