Составить программу для решения следующей задачи. Определить, сколько двузначных чисел,...

Question

Составить программу для решения следующей задачи. Определить, сколько двузначных чисел, которые не делятся на 4. Результат вывести на экран.Пожалуйста помогите​

Answer 1

PascalABC.NET:

!По школьной программе

• var n: integer;
• begin
• for var i := 10 to 99 do
• if i mod 4 <> 0 then n := n + 1;
• writeln(n);
• end.

!Не по школьной программе

• begin
• (10..99).Count(c -> c mod 4 <> 0).Print
• end.

---

---

Comments

Уточняйте, пожалуйста, о какой школьной программе речь. У школ нынче программы различные: в каждой школе собственная.

---

Возможно... Поэтому я и прикладываю оба варианта. Просто не все школы могут такое себе позволить, поэтому большинство всё же остаются использовать старую программу чистого pascal. Вместо "for var i" учат сначала объявлять i, а потом уж в цикле писать и тому подобное, ну Вы сами прекрасно это знаете. Да, сейчас в скачке IT разработки многие школы перестраиваются, но далеко не все.

---

Это Ваше дело и Ваше право, я лишь заметить хотел, что фраза "По школьной программе" некорректна.

---

И еще, это "чистый С" есть. И "чистый LISP". А "чистый Pascal" не существует, потому что нет ни одного компилятора, который бы реализовал именно стандарт Pascal ISO 7185 :1990

---

Ладно-ладно, спасибо, вижу, не правильно выразился.

---

Пустяк на фоне вот такой ерунды: https://znanija.com/task/37353328