profile
Размещено 5 лет назад по предмету Информатика от vdovenich

Составьте программу, которая последовательно запросит 10 целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных чисел.

  1. Ответ на вопрос
    Ответ на вопрос дан estengseant
    var q,w,e,r,t,y,u,i,o,p,l,s,a: Integer;
    begin
    writeln('Введите 10 целых чисел');
    readln(q,w,e,r,t,y,u,i,o,p);
    s:=0;
    a:=0;
    for l:=0 to 9 do
    begin
    if l=0 then if q mod 2=0 then s:=s+1 else a:=a+1;
    if l=1 then if w mod 2=0 then s:=s+1 else a:=a+1;
    if l=2 then if e mod 2=0 then s:=s+1 else a:=a+1;
    if l=3 then if r mod 2=0 then s:=s+1 else a:=a+1;
    if l=4 then if t mod 2=0 then s:=s+1 else a:=a+1;
    if l=5 then if y mod 2=0 then s:=s+1 else a:=a+1;
    if l=6 then if u mod 2=0 then s:=s+1 else a:=a+1;
    if l=7 then if i mod 2=0 then s:=s+1 else a:=a+1;
    if l=8 then if o mod 2=0 then s:=s+1 else a:=a+1;
    if l=9 then if p mod 2=0 then s:=s+1 else a:=a+1;
    end;
    writeln('Чётных: ',s);
    writeln('Нечётных: ',a);
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      "Аффигеть!" (с)
    2. Ответ на вопрос
      Ответ на вопрос дан estengseant
      Ждал ваш комментарий и долждался. Весело однако.
    3. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      А уж как мне весело! Это где так учат писать? Или просто чтобы постебаться?
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.