Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vikon2017
14.04.2021 09:54 •
Информатика
Составте программу вычисления суммы всех двузначных чисел.
Показать ответ
Ответ:
Sadist702
25.08.2020 09:53
Program summ;
var i: byte;
sum: integer;
begin
i := 10;
while i < 99 do
begin
sum := sum + i;
inc(i);
end;
write('Сумма всех 2-значных чисел: ',sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
лялялятраляляля1
12.01.2022 19:11
Рассказ набранный на компьютере содержит несколько страниц на каждой странице 20 строк по 48 строке информационный объём рассказа составляет 30 килобайт определите количество...
CheryLi
12.01.2022 19:11
Devc++ . даны три целых числа a, b и с напишите программу, которая находит количество всех целых чисел от a до b, которые при целочисленном делении на с дадут остаток...
gorod1723
22.11.2022 21:23
мой мозг опять отказался думать...
11Катя11111
23.03.2021 21:17
Напишите программу для «Светофора» на Arduino...
MrRainClouD
17.06.2022 17:18
1) Напишите программу которая запрашивает у пользователя два числа, складывает их и выводит результат. 2) Напишите программу для вычисления площади треугольника, если...
aksenovazlata
06.10.2021 13:17
1. Текст составлен в алфавите мощностью 512 символов. Всего в тексте 32768 символов. Найдите информационный объем этого текста в Кбайтах. 2. Текст составлен в алфавите...
melongemma
19.05.2023 09:22
Укажите подходящий формулировку задачи для которой была построена указанное блок схема...
shmiganastya06
03.02.2021 09:04
В каком из меню программы Paint находится команда отразить/повернуть?...
нануша456
04.06.2022 03:01
Компютерлік ойындар рефераттар...
пппп97
08.06.2021 04:27
ОЧЕНЬ НАДО ПИШУ ИТОГОВУЮ КОНТРОЛЬНУЮ Запусти Pascal. Введи программу. program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y);...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i: byte;
sum: integer;
begin
i := 10;
while i < 99 do
begin
sum := sum + i;
inc(i);
end;
write('Сумма всех 2-значных чисел: ',sum);
end.