Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
emelik96
22.05.2021 05:12 •
Информатика
Вывести на экран матрицу. (на си)
👇
Увидеть ответ
Открыть все ответы
Ответ:
Ulysses228
22.05.2021
Program TaskC;
Var i, il: Integer;
Begin
For i := 1 To 21 Do
If i Mod 2 = 1 Then
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.
Program TaskD;
Var i: Integer;
Begin
For i := 1 To 11 Do
Write(i * 2, ' ');
End;
ReadLn;
End.
Program TaskE;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Write(i, ' ');
ReadLn;
End.
Program TaskF;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Begin
Write(i * 10, ' ');
End;
ReadLn;
End.
Program TaskG;
Var i, sum: Integer;
Begin
For i := 1 To 10 Do
sum := sum + i;
WriteLn(sum);
ReadLn;
End.
Program TaskH;
Var i, product: Integer;
Begin
product := 1;
For i := 1 To 5 Do
product := product * i;
WriteLn(product);
ReadLn;
End.
Program TaskI;
Var i, sum: Integer;
Begin
For i := -5 To 5 Do
sum := sum + Abs(i);
WriteLn(sum);
ReadLn;
End.
Program TaskJ;
Var c: Char;
Begin
For c := 'A' To 'Z' Do
Write(c, ' ');
ReadLn;
End.
4,6
(32 оценок)
Ответ:
timkoa
22.05.2021
While:
Program TaskA;
Var i: Integer;
Begini := 1;
While i < 1024 Do
Begin
i := i * 2;
Write(i, ' ');
End;
End.
Program TaskB;
Var i, a: Integer;
Begin
i := 1;
While i < 21 Do
Begin
a := a + i;
i := i + 1;
Write(a, ' ');
End;
End.
Program TaskC;
Var i, sum: Integer;
Begin
While sum < 100 Do
Begini := i + 1;
sum := sum + i;
Write(i, ' ');
End;
End.
Random:
Program TaskA;
Begin
Randomize;
WriteLn(Random);
End.
Program TaskB;
Begin
Randomize;
WriteLn(Random(10) + 1);
End.
Program TaskC;
Begin
Randomize;
WriteLn(Random(20 + 1) - 10);
End.
Program TaskD;
Begin
Randomize;
WriteLn(Random(51) * 2);
End.
Program TaskE;
Begin
Randomize;
WriteLn(Random(50) * 2 + 1);
End.
4,5
(31 оценок)
Это интересно:
О
Образование-и-коммуникации
21.03.2023
10 способов развить способность к обучению...
Ф
Финансы-и-бизнес
17.08.2020
Как перевести деньги через Western Union: шаг за шагом...
Х
Хобби-и-рукоделие
25.10.2020
Как связать на спицах игрушечного медведя...
О
Образование-и-коммуникации
07.03.2022
Как читать показания линейки: простой гайд...
П
Питомцы-и-животные
27.07.2021
Как измерить температуру у лошади: советы от опытных ветеринаров и коневодов...
Д
Дом-и-сад
22.09.2020
Как удалить пятна от кондиционера для белья: советы экспертов...
З
Здоровье
05.02.2023
Как сдержать газы: 7 важных советов...
Д
Дом-и-сад
10.09.2020
Заставьте ваш филодендрон расцвести: советы по уходу за растением...
В
Взаимоотношения
01.11.2020
Как определить, что девушка пытается увести вашего парня...
К
Кулинария-и-гостеприимство
22.12.2021
Как приготовить вкусное мороженое из молока в домашних условиях...
Новые ответы от MOGZ: Информатика
kan001
10.01.2020
Чему равно число наборов аргументов при числе аргументов равном 2, 3, n?...
дагаыоукм
10.01.2020
Описать функцию MaxN(A, N) целого типа, находящую номер максимального элемента вещественного массива A размера N. С этой функции найти номера максимальных элементов...
nik180208
13.06.2022
Что значат эти - 4/+147 под лвл фейсита? ...
Gusein123
23.11.2021
Нужно решить в Excel С формулами...
larisaiventeva
06.09.2020
Найдите количество нулей во всем массиве и определите сумму квадратов чисел, принадлежащих промежутку (a, b) и стоящих на местах, кратных 4...
shepotkina
05.05.2021
Даны два натуральных числа n и m (n определите количество натуральных чисел a(n =a =m), в записи которых присутствует заданная цифра c(0 =c =9). результат выводится...
sdfxcg
03.10.2020
за відомостями з інтернету або каталогами комп ютерних магазинів запропонуйте для шкільної бібліотеки дві моделі проекційних сканерів для створення елоктронної бібліотеки....
whitepanda1
13.08.2022
Проанализируйте и сравните файловые системы...
denisstar756
22.07.2021
Параграф учебника состоит из 4 страниц, на каждой странице 42 строки, в каждой строке 45 символов. Каков объем информации в параграфе. ответ представьте в Кбайтах, округлите...
gregoryan2001
19.02.2021
... - это программная функция компьютера для выравнивания текста по горизонтали...
MOGZ ответил
Вот : put the verbs in brackets into the infinitive or -ing form....
Вибрати правильне словосполучення: по аналогії – за аналогією; по...
Все франки: а) были лично зависимы; б) имели равные права; в) были...
Порядок разбора существительного как части речи с друзьями...
Доведіть що периметр описаної трапеції в чотири рази більший за середню...
Найди в тексте синонимы к данным словам зачастили - быстро- схватили-...
Решите уравнение : а) x^2 = 36 б) x^2 = 1/4 в) x^2 + 1 = 3 г) 3 -...
Объясните написание слов: врождённой, поведение, легкоранимая, преобладает,...
Укажите множество решений неравенства log0,1(x) -1/2...
Узындыгы7см ени 5см тик тортбурыш. ауданы мен периметрн табу....
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Var i, il: Integer;
Begin
For i := 1 To 21 Do
If i Mod 2 = 1 Then
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.
Program TaskD;
Var i: Integer;
Begin
For i := 1 To 11 Do
Write(i * 2, ' ');
End;
ReadLn;
End.
Program TaskE;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Write(i, ' ');
ReadLn;
End.
Program TaskF;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Begin
Write(i * 10, ' ');
End;
ReadLn;
End.
Program TaskG;
Var i, sum: Integer;
Begin
For i := 1 To 10 Do
sum := sum + i;
WriteLn(sum);
ReadLn;
End.
Program TaskH;
Var i, product: Integer;
Begin
product := 1;
For i := 1 To 5 Do
product := product * i;
WriteLn(product);
ReadLn;
End.
Program TaskI;
Var i, sum: Integer;
Begin
For i := -5 To 5 Do
sum := sum + Abs(i);
WriteLn(sum);
ReadLn;
End.
Program TaskJ;
Var c: Char;
Begin
For c := 'A' To 'Z' Do
Write(c, ' ');
ReadLn;
End.