Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Stanmashyna201
24.03.2021 18:31 •
Информатика
Написать программу в pascal по циклам: ежедневно ученик делает в диктанте разное кол-во ошибок.за сколько дней кол-во ошибок достигнет числа q? (написать программу с циклом while)
Показать ответ
Ответ:
МиллкаВах
13.07.2020 17:27
Program gt;
var q,k,a,s:integer;
begin
writeln('Задайте q');
readln(q);
k:=-1;s:=0;
while q>s do
begin
k:=k+1;
read(a);
s:=s+a;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
leomax2
14.04.2020 08:50
Кварталы манхэттена состоят из авеню, направленных с юга на север и улиц, направленных с запада на восток. все улицы и авеню пронумерованы числами, начиная с 1 подряд (первая улица,...
МаринаБалыгина505212
02.04.2023 11:32
СОР ПО ИНФОРМАТИКЕпронумеруйте в верном порядке действия для добавления оглавления в документ. Количество соединений: 41 шагустановить курсор Вместо вставкиОглавления (в начале документа)2...
Silvertrue
17.07.2021 17:08
Задача №1. Составить алгоритм, блок-схему и программу возведения любого числа в любую степень. Задача № 3. Составить алгоритм, блок-схему и программу вычисления суммы квадратов двух...
ggg280
20.02.2020 20:44
Информационный объем сообщения в 8-битной кодировке равен 18 байтов. это сообщение перекодировали в 16-битную кодировку, а затем удалили несколько символов, после чего объём сообщения...
vika2075
07.06.2023 14:54
Написать программу для pascаl: вычислить произведение всех четных чисел от 50 до 100...
влад2133
07.06.2023 14:54
2. текст занимает 0,5 мбайт памяти компьютера. сколько страниц книги содержит этот текст, если на одной странице записывается 30 строк по 30 символов в строке....
12рок1
22.11.2020 05:40
2-тапсырма. Суреттерді тмендегі сздермен сәйкестендір. Сйлем ра. Еліктеу сздерді маынасына арай олдан.Описать надо эти картинки на казахском...
alyaardasenova
15.09.2022 09:05
соңғы кездері халықтың орналасуындатабиғи қолайлы жағдай дың төмендеуі неге байланысты деп ойлайсыңдар...
milkdkdlol
07.10.2020 03:59
Прочитайте історичні джерела. Визначте яку подію вони висвітлюють, 1. «Нехай настане мир християнський всезахальний і вічний... Між священною iмператорською величністю, Австрійським...
suchilinaelya
30.01.2020 07:33
5. Составь задачи по таблицам. Реши их. Масса 1 ящика Количество Общая масса 42 кг одинаковая 6 шт. 9 шт. 2 кг Попробуй составить обратные задачи. Количество Общая масса Масса 1 ящика...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var q,k,a,s:integer;
begin
writeln('Задайте q');
readln(q);
k:=-1;s:=0;
while q>s do
begin
k:=k+1;
read(a);
s:=s+a;
end;
writeln(k);
end.