logo
Войти Регистрация Спроси ai-bota


2Znanijacom1
27.09.2020 14:25

Найти количество чётных чисел от 1 до 100,программа pascal abc

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
wylia
wylia
12.02.2021 22:52
5. Составить программу, которая будет запрашивать ввод числа N до тех пор, пока это число не будет делиться на А без остатка. Например, при N=10 и A 3 ответ: повторите ввод числа...
IRA28032006
IRA28032006
01.09.2022 08:36
с решением задачи по информатике. Фото ниже....
KIrito5016
KIrito5016
21.11.2021 22:35
Запишите фрагмент программного кода для организации ввода данных в массив D:...
dianasobol
dianasobol
31.12.2022 15:20
1.Где используются адреса ячеек? 2.Какие адреса ячеек встречаются в формулах? 3.В чем отличие относительной ссылки от абсолютной, Приведите примеры. 4.Что такое ссылка? 5.Какие виды...
ta2001nja
ta2001nja
01.04.2021 03:59
Люди ПАМАГИТЕ! В доме Вилли установили скоростной лифт новой экспериментальной модели. В этом лифте кнопки с номерами этажей заменены двумя другими кнопками. При нажатии на первую...
LavaGirl14
LavaGirl14
19.07.2021 03:24
те составить программу на Java Напишите программу, которая выполняет сжатие массива целых чисел – переставляет все нулевые элементы в конец. При этом все ненулевые элементы располагаются...
Малефисента7
Малефисента7
19.07.2021 03:24
Для данного x вычислить значение функции в Пайтон...
lilyavenkova
lilyavenkova
24.01.2023 03:26
ответить на вопросы. 1)сообщение,не содержащее для вас новую (значимую) информацию (15 букв) 2)Наука о закономерностях протекания информационных процессов в системах различной природы,...
samirirgashev2owfhon
samirirgashev2owfhon
04.04.2020 20:38
Чему равен десятичный эквивалент числа 101001₂...
katyusha0
katyusha0
06.01.2020 15:16
написать программу, которая будет создавать массив из 8 чисел и заполнять целыми числами по возрастанию от 5. Т.е. массив будет выглядеть так: 5 6 7 8 9...
Ответ:
fogive
11.06.2020 23:08

var i,n:integer;

begin

   n:=0;

   for i:=1 to 100 do

      if (i mod 2 = 0) then inc(n);

   writeln(n)

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота