Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lerafilippovа04
15.08.2020 09:35 •
Информатика
Напечатать столбиком : a) все целые числа от 10 до 35; b) квадраты все целых чисел от 5 до n; c) третьи степени всех целых чисел от а до 50; d) все целые числа от а до b. использовать оператор while
Показать ответ
Ответ:
Rj7
21.07.2020 10:20
Uses Crt;
const a=0;
b=10;
n=15;
var i: longint;
Rez: longint;
begin
ClrScr;
WriteLn ('Task 1:');
for i:=10 to 35 do
Writeln(i:3);
Delay (2000);
WriteLn ('Task 2:');
for i:=5 to n do
Writeln(i*i:5);
Delay (2000);
WriteLn ('Task 3:');
for i:=a to 50 do
begin
Rez:=i*i*i;
Writeln(Rez:7);
end;
Delay(2000);
WriteLn ('Task 4:');
for i:=a to b do
Writeln(i:3);
ReadLn;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ян6
07.06.2021 07:00
20.2 напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 4, или сообщает, что таких чисел нет (выводит...
zemairen
07.06.2021 07:00
Сестры маша и даша подсчитали свои денежные накопления, у них оказались разные суммы. какая сестра должна дать другой денег и сколько, чтобы у обеих сестер суммы...
Zasov
07.06.2021 07:00
B2 определите значение переменной с после выполнения следующего фрагмента программы: a: = 5; a: = 12 – a*a; b: = -a; c: = 10*a - b;...
Masha9771
24.05.2023 09:54
Вычислите стоимость покупки состоящий из текстильных тетрадей ,нескольких ручек и нескольких карандашей...
sherilblo
07.02.2022 10:03
По шестнадцатеричной форме внутреннего представления вещественного числа в 4-х байтовой ячейке восстановить само число. (C5DB0000)...
irinohkaberesn
24.04.2021 12:09
Постройте блок-схему алгоритма и напишите алгоритм на алгоритмическом языке для решения следующей задачи. Заданы 20 целых чисел, часть из которых отрицательные....
Дмитрий111111112222
12.09.2021 11:44
Напишите комментарии к данной программе и результат...
нигу3
19.06.2020 10:16
НАДО, У ВАС ЕСТЬ ДВА ЧАСА МАКСИМУМ, тут если что два скрина...
Habibullo32
31.07.2020 13:37
1. Используют три классические модели данных: 1) реляционные; 2) логические; 3) иерархические; 4) сетевые. а) верно 1,2,3; б) верно 1,3,4; в) верно 1,2,4. 2. Запись...
xujixixud
10.05.2023 13:14
(Передача масивів функціям с++) В задачі реалізувати: 1. Функцію, що реалізує умову задачі. 2.Всі масиви створюються динамічно а розмір вводиться користувачем з...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const a=0;
b=10;
n=15;
var i: longint;
Rez: longint;
begin
ClrScr;
WriteLn ('Task 1:');
for i:=10 to 35 do
Writeln(i:3);
Delay (2000);
WriteLn ('Task 2:');
for i:=5 to n do
Writeln(i*i:5);
Delay (2000);
WriteLn ('Task 3:');
for i:=a to 50 do
begin
Rez:=i*i*i;
Writeln(Rez:7);
end;
Delay(2000);
WriteLn ('Task 4:');
for i:=a to b do
Writeln(i:3);
ReadLn;
end.