Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kirilladmiiral
29.09.2022 20:31 •
Информатика
Как решить в паскале (тема - оператор цикла с предусловием): "найти сумму а кратных 11 натуральных чисел запишите.,решение.
Показать ответ
Ответ:
khetagmuriev1
17.09.2020 12:58
Var a,i,s,h:integer;
begin;
s:=0; //0 кратен любому числу
h:=0;
readln(a);
while i<>a do
begin;
inc(i);
s:=s+h;
h:=h+11;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
arsenumerbekov
20.07.2022 15:35
Создать список в программа MS Word: А) Маркированный список Материки (Евразия, Африка и т.д.)...
natalyaepishenk
23.06.2022 02:32
Какие виды программного обеспечения существуют...
kmullagalieva
23.06.2022 02:32
Вpascal двое рабочих заработали вместе 900 рублей. один работал 2 недели, а другой 4 недели. сколько денег заработал каждый? надо написать программу в pascal...
Татьяна72828
23.06.2022 02:32
Что такое твердый носитель информации?...
кефирка5623
26.01.2022 16:20
Вариант 1№1. сделать перевод чиселправильное решение оценивается в 15 .а) 3210 — х б) 34610хg b) 64538г) 1001100010, — x16д) 165 10 х16х2...
myatlick
07.11.2020 14:07
1)с клавиатуры можно: а)обрабатывать информацию на компьютере. в) вводить тексты в компьютер. с) вводить рисунки в компьютер д) печатать тексты и рисунки на бумаге.2)при...
Andy2511
07.11.2020 13:42
На поле нет стен, в ряду из 10 клеток правее робота некоторые клетки закрашены, закрасить клетки ниже каждой закрашеннойсоставьте алгоритм...
баклажан233
31.08.2020 09:34
Шестое, : 6.разновидность диска: 10букв...
ZikZaka2
26.12.2021 06:43
Вычислите за какое время можно передать файл объёмом 525 кбайт с пропускной бит/с...
vitalinabelova1
21.03.2021 06:17
21. сделать перевод чисел12: 32 ное решение оценивается в 15 .а) 32^10 - x2 б) 34610 « - хs b) 645 3г) 100 1000 10 - 16д) 105 10 - 10...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
s:=0; //0 кратен любому числу
h:=0;
readln(a);
while i<>a do
begin;
inc(i);
s:=s+h;
h:=h+11;
end;
writeln(s);
end.