tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу, которая
Составьте программу, которая печатала бы последовательность 100,81,.
АльфисГугу
2 23.08.2019 17:50
0
Ответы
KrolKrosh
05.10.2020 15:02
Var
A:byte;
Begin
For A:= 10 downto 1 do
Write(A*A,' ');
End.
ПОКАЗАТЬ ОТВЕТЫ
Настя200101
05.10.2020 15:02
Это 10², 9², ... 1²
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
SeqGen(10,i->sqr(10-i)).Println
end.
Результат
100 81 64 49 36 25 16 9 4 1
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
гегпнгеггне
14.02.2021 11:16
Написать 2 программы (на языке программирования Паскаль) для нахождения наибольшего из 3 заданных чисел. 1) использовать принцип вложенных ветвлений, 2) принцип последовательных ветвлений....
natalinatark
10.04.2020 06:23
3. Жазылған сөз (әдеби туындылар, шығарма, құжат және т.с.с.Яғни олардың үзінділері мен бөліктері) деп аталады (орыс тілін-дегі мағынасы).4. ... – бұл мағынасы бойынша өзара бір-бірімен...
Raul020507
10.04.2020 06:23
Подготовить сообщение о бесплатных почтовых серверах. 2.Подготовить сообщение о бесплатных почтовых серверах сравнить их. 3. Подготовить сообщение о бесплатных и платных почтовых серверах,...
ne1naiioo111
02.06.2019 05:00
Одноклеточная амеба каждые три часа делится пополам. составьте программу определения количества амеб через 3, 6, 9, 12, 24 часов....
vo10
29.05.2019 07:40
Напишите самое большое трехзначное число в восьмеричной системе счисления...
pinashinaanna27
21.07.2021 22:13
С++ Степень! только на С++! есть код 12 тестов из 15(см. текстовый файл) Для того чтобы проверить, как её ученики умеют считать, Мария Ивановна каждый год задаёт им на дом одну и ту...
SForest
21.07.2021 22:58
Ниже записана программа. Получив на вход число x, эта программа печатает два числа L и M. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом...
яяяяяяяяяяяяяя22222
22.07.2021 07:00
Дан фрагмент электронной таблицы, Из ячейки В2 в ячейку D3 была скопирована формула. При копировании адреса ячеек в формуле автоматически изменились, А В C D E 1 1 10 100 10008 2 2....
Martishevska
22.07.2021 07:03
Написать код ТОЛЬКО НА С++ Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности....
Lizakisa777
22.07.2021 07:05
Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых приведена в таблице. (Отсутствие числа в таблице означает, что прямой дороги между пунктами нет.)...
Популярные вопросы
Куда жаловаться на несанкционированные субботники в школе? как сделать это анонимно?...
1
Аналіз повісті гончара брегантина может, уже кто-нибудь делал, ,!...
2
)составьте схемы предложений: 1) я не пытаюсь объяснить, что такое добро и почему...
3
Y=(3x-4)(7x+2) найдите производную функции...
1
Найдите значение выражения 42: 3 целых 3/13-13.7+1.3...
2
Построить в одной координатной плоскости графики следующих функций у=2х-3 у=2х+4...
3
31/3: 10+0,175: 0,35 -числитель; 1,75-1 11/17*51/56 -знаменатель. умоляю по действиям....
3
Какие военноначальники брали берлин...
1
Нужно ли поставить запятую где-нибудь: я думаю павел рассказывал тебе о друге, который...
2
)в треугольнике abc известно,что ac = 10, bc = 24, угол c равен 90*. найдите радиус...
2
A:byte;
Begin
For A:= 10 downto 1 do
Write(A*A,' ');
End.
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
SeqGen(10,i->sqr(10-i)).Println
end.
Результат
100 81 64 49 36 25 16 9 4 1