• На языке программирования Паскаль напишите программу, которая:

    1) В последовательности чисел находит количество чисел, кратных 3.
    2) В последовательности чисел находит максимальное четное число, оканчивающееся на 4.

Ответы 4

  • 2) проверка условия на четность не обязательна т.к число которое оканчивающейся на 4 и так четное
  • если необходимо то if (h div 10 = 4) and ( h mod 2 = 0) then...
    • Автор:

      julio
    • 6 лет назад
    • 0
  • если необходимо то if (h mod 10 = 4) and ( h mod 2 = 0) then... !!
  • 1)program kr3sum;var i,s.h:integer;begin read(k) //кол чисел for i:=1 to k do begin read(h) //число для действий if h mod 3 = 0 then begin s:=s+1;end;writeln(s);end.2)program jeje; var k,i,m,s,h:integer;begin m:=0;read(k);//кол-во чиселfor i:=1 to k do beginreadln(h);if h mod 10 = 4 then begin s:=h;            if s > m then m:=s                           end;end;write(m);end.
    • Автор:

      bebeobcr
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years