Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Женя02458
17.02.2022 15:29 •
Информатика
Паскаль дано кол-во детей и вместимость автобуса. сколько нужно автобусов нужно написать что то наподобие "uses crt, begin" желательно пошагово
Показать ответ
Ответ:
lybabibrka
27.07.2020 08:17
Var a,b:integer;
begin
writeln('kolicestvo detei=');
readln(a);
writeln('vmestimosti avtobusa=');
readln(b);
writeln('nujno ',(a div b)+1,'avtobusov');
readln;
end.
0,0
(0 оценок)
Ответ:
kostyabriakin
27.07.2020 08:17
Uses CRT;
Var
A,B:integer;
Begin
Write('KOL-BO DETEi = ');ReadLn(A);
Write('BMECTiMOCTb = ');ReadLn(B);
if A mod B = 0 then WriteLn(A div B)
else WriteLn((A div B)+1);
ReadKey
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
dasha098685674
07.02.2023 09:15
Написать программу, которая формирует массив из 20 случайных чисел целых чисел и выводит на экран элементы, кратные числу 4....
hhhttt1520
08.06.2023 13:54
Программа предназначается для расчета площади по формуле герона, объясните , в чем тут ошибка ? program dom_zad_2; var a, b, c, p, s: real; begin if (a writeln ( значение стороны...
9fhneh
24.08.2022 16:24
НЕЙРОННЫЕ СЕТИ Какое главное достоинство применения нейронных сетей? а) Возможность решения задач в условиях помех б) Можно обрабатывать сигналы нейронной сетью в) Можно распараллелить...
Сельга7
28.08.2022 21:10
Паскаль инфа 9 класс хелп запрлсить 10 целый чисел , вычислить произведение чисел , которые в отрезок от 10 до 20...
maks7388
01.03.2020 18:06
Задание на фото. Можно с решением....
HimikHEH
14.05.2021 08:18
Познакомьтесь с альтернативной частью кода ASCII, используемой в школьных компьютерах. Выясните, соблюдается ли принцип последовательного кодирования алфавита из русских букв...
baskaqusar
12.08.2022 06:56
6 задание. составить таблицу истинности для высказывания....
топ2006
28.10.2021 16:52
4. Світло, падаючи на метал, зумовлює емісію електронів з його поверхні. Призменшенні інтенсивності світла удвічі... (0, )а) Емісія електронів припиниться6) Кількість вибитих...
коля856
12.08.2022 06:56
Определите взаимное расположение графиков функций 1)y=x/3-2 и y=1-x; 2)y=x/5+1 и y=0,2x+3; 3)y=5-4x и y=3x; 4)y=2x+1/4 и y=0,5x+0,25...
ARISKA2006
28.10.2021 16:52
Почему большевики к июлю 1917 года не поддерживали ни петросовет, ни всемирное правительство?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('kolicestvo detei=');
readln(a);
writeln('vmestimosti avtobusa=');
readln(b);
writeln('nujno ',(a div b)+1,'avtobusov');
readln;
end.
Var
A,B:integer;
Begin
Write('KOL-BO DETEi = ');ReadLn(A);
Write('BMECTiMOCTb = ');ReadLn(B);
if A mod B = 0 then WriteLn(A div B)
else WriteLn((A div B)+1);
ReadKey
End.