М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Slloonok
Slloonok
21.04.2021 10:08 •  Информатика

Составить программу которая вводит 5 чисел и подсчитывает количество четных и нечётных чисел нужно

👇
Ответ:
maryrous
maryrous
21.04.2021
Var
a,b,c: integer;
begin
readln(a);
c:=0;
while a<>0 do
begin
b:= a mod 10;
a:= a div 10;
if x mod 2=0 then 
c:=c+1;
end;
writeln(c)
end.
4,7(46 оценок)
Ответ:
Var a,z,q:integer;
begin
readln(a);
q:=0;
while a<>0 do
begin
z:=a mod 10;
a:=a div 10;
if a mod 2=0 then
q:=q+1;
end;
writeln(q);
end.
4,5(10 оценок)
Открыть все ответы
Ответ:
gaviren
gaviren
21.04.2021
Program 1123;
type data = record     g: 0..3000;     mes: 1..12;     day: 1..31;     end;
var d1,d2:data;begin writeln('Введите дату через пробел(число, месяц, год)');readln(d1.day,d1.mes,d1.g);
d2:=d1;d2.day:=d1.day+1;with d2 do case mes of 1,3,5,7,8,10: begin               if day=32 then begin mes:=mes+1; day:=1; end;              end;
4,6,9,11: begin            if day=31 then begin mes:=mes+1; day:=1; end;          end;2: begin     if g mod 4=0 then begin                        if day=30 then begin mes:=mes+1; day:=1; end; end                 else begin                        if day=29 then begin mes:=mes+1; day:=1; end;                       end;
 end;
12: begin     if day=32 then begin g:=g+1; mes:=1; day:=1; end;    end;end;writeln('Следующий день ',d2.day,'.',d2.mes,'.',d2.g);end.
4,8(54 оценок)
Ответ:
zbbzk
zbbzk
21.04.2021
Const mas : Array [0..6,0..8] Of String = (('Иванов Иван Иванович        ', '1', '2', '3', '1', '5','3', '3', '2'),                                     ('Петров Петр Петрович        ', '5', '5', '5', '4', '5','5', '5', '5'),                                     ('Сидаров Сидор Сидорович     ', '3', '2', '3', '2', '2','2', '2', '1'),                                             ('Алексеев Алексей Алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'),                                     ('Сергеев Сергей Сергеевич    ', '2', '2', '5', '5', '5','5', '2', '3'),                                     ('Степанов Степан Степанович  ', '5', '5', '5', '4', '5','5', '5', '5'),                                     ('Давыдов Давид Давидович     ', '3', '3', '3', '3', '3','3', '3', '3'));                             var sr:real; // средний     b:real;begin  writeln('');  writeln('|            ФИО             |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |');  writeln('');  for var i:=0 to 6 do begin   write('|'+mas[i,0]+'|');    sr:=0;   for var j:=1 to 8 do begin    write(' '+mas[i,j]+' |');    double.TryParse(mas[i,j],b); // строку в число    sr:=sr+b;   end;   sr:=sr/8;   write(sr:5:3);   write('|');   writeln;  end;  writeln('');  end.
4,6(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ