Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
RMDEL
11.04.2020 01:41 •
Информатика
Решить с паскаля. 1.-выбрать наибольшее из двух чисел 2.-найти сумму кубов чисел от 1 до 100 заранее : з
Показать ответ
Ответ:
kriss6745
20.06.2020 23:07
1)
var i, a: integer;
begin
readln(i, a);
if (i < a) then writeln(i, ' < ', a)
else if (i = a) then writeln(i, ' = ', a)
else writeln(i, ' > ', a);
end.
2)
var i, a: integer;
begin
for i := 1 to 100 do
a := a + i*i*i;
writeln(a);
end.
Удачи тебе :3
0,0
(0 оценок)
Популярные вопросы: Информатика
Anonimka89
07.05.2022 03:18
Дана строка. подсчитать количество букв о в последнем её слове. s: = пейте дети молоко k=3 (на паскале)...
rhxtdf
29.01.2020 00:46
Напишите изложение по рассказу лягушонок пришвин. , кто ответит первый отмечу, как лучший ответ!...
Волк123111
29.01.2020 00:46
Не играй в прятки с водителем,окружающий 2 класс...
залипушечка
29.01.2020 00:46
Чему равна масса молекулы водорода?...
dikozzz
29.01.2020 00:46
На какую сторону света направлены тени от предметов в солнечный полдень? на север на юг на запад на восток...
ФархадАсланов
29.01.2020 00:46
Составьте предложенмя со словами: мужество, подвиг, победа, праздник, память, патриотизм. (7 предложений) заранее...
den535
29.01.2020 00:46
Образуй от имени существительного сентябрь имя прилагательное с суффикс н о ск...
Alinkass93
29.01.2020 00:46
Даны числа: 11,16,17,35,48,60,74,85,90.напишите какой остаток получиться при деление каждого из этих чисел а) на 2 б) на 5 в )на 10...
Analochka
29.01.2020 00:46
Это уже завтра надо показать к данным словам подберите однокоренные слова с непроизносимой согласной. вот слова: весть,ненастье,поверхность,место,вместе,турист.гигант,честь,доблесть,радость,прелесть,зависть,совесть,грусть,злость,жалость....
blackfox30
29.01.2020 00:46
Отметь предложения, в которых на месте пропуска необходимо поставить двоеточие. 1) уже не стало видно _ ни земли, ни деревьев, ни неба. 2) все вокруг заблистало _ лужи,листья,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i, a: integer;
begin
readln(i, a);
if (i < a) then writeln(i, ' < ', a)
else if (i = a) then writeln(i, ' = ', a)
else writeln(i, ' > ', a);
end.
2)
var i, a: integer;
begin
for i := 1 to 100 do
a := a + i*i*i;
writeln(a);
end.
Удачи тебе :3