Предмет: Информатика, автор: aleksandrasavenko344

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

Ответы

Автор ответа: LRSM
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.
Приложения:

LRSM: Возможно... Поэтому я и прикладываю оба варианта. Просто не все школы могут такое себе позволить, поэтому большинство всё же остаются использовать старую программу чистого pascal. Вместо "for var i" учат сначала объявлять i, а потом уж в цикле писать и тому подобное, ну Вы сами прекрасно это знаете. Да, сейчас в скачке IT разработки многие школы перестраиваются, но далеко не все.
LRSM: Ладно-ладно, спасибо, вижу, не правильно выразился.
Интересные вопросы
Предмет: Русский язык, автор: Аноним
Предмет: Геометрия, автор: лои2
Предмет: Математика, автор: ПолинаShev