1. Информатика
  2. Даны два числа.посчитать

Даны два числа.посчитать сколько среди них четных. составить программу паскаль

oksana78shilki oksana78shilki    2   02.10.2019 16:01    1

Ответы
ruslanbaxsiev79 ruslanbaxsiev79  09.10.2020 12:04

program number1;

var a,b,k: integer;

Begin

writeln('Введите 1-ое число');

readln(a);

writeln('Введите 2-ое число');

readln(b);

if a mod 2=0 then k:=k+1;

if b mod 2=0 then k:=k+1;

writeln('Чётных чисел: ',k);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
maks6434 maks6434  24.04.2020 08:13
зарание Маркированными списками являются:ИнформатикаМатематикаБиологияХимияфизикао Информатикаo МатематикаБиологияХимияoooфизикаo1. Информатика2. Математика3. Биология4....
gipotop gipotop  29.09.2019 19:50
Лучшие предложения игры.какие вы любите?...
melnikovao197 melnikovao197  29.09.2019 19:50
Снекоторого момента дней. сколько полных недель за этот период. формат входных данных на вход программе подается 0≤n≤106. формат выходных данных вывести целое число...
57алес7т 57алес7т  01.10.2019 14:40
Переведите число 100110111 из двоичной системы счисления в десятичную систему счисления...
ШаркоВалерия ШаркоВалерия  01.10.2019 14:30
Водной из кодировок unicode каждый символ кодируется 16 битами.определите размер следующего предложения в данной кодировке: я вас любил безмолвно, безнадёжно, то робостью,...
ттууппааяя ттууппааяя  01.10.2019 14:30
Найти наименьший из элементов, расположенных правее максимального элемента массива. вместо наименьшего элемента выводит последний. исправить. const n=10; var a: array[1..n]...
Маша20041124 Маша20041124  01.10.2019 14:30
2.запишите в обычной форме арифметические выражения: а) b/sqrt(a*a+b) б) ln(y*(-sqrt(abs( в) sqrt(sin(arctg(u))*2+abs(cos( г) abs(cos(x)+cos(y))*(1+sin(y)*2) !...
Solncelunatik Solncelunatik  01.10.2019 14:30
Реферат,набранный на компьютере,содержит 12 страниц,на каждой странице 48 строк,в каждой строке 64 символа.для кодированя символов используется кодировка unicode, при...
PadhD PadhD  01.10.2019 14:30
Когда алла катя и люда спросили какие оценки они получили за контрольную по то учитель ответил попробуйте догадаться сами а я вам скажу что в классе двоек нет и у вас...
Ральфф Ральфф  01.10.2019 14:30
1в одной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке. я к вам пишу — чего же боле? что я могу...

Популярные вопросы