logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
КсюшаЛор
КсюшаЛор
17.04.2023 05:21 •  Информатика

Я буду очень признательна. Назовите схему развития компьютерной графики.. Мне очень надо, выручите, как сможете..

👇
Увидеть ответ
Открыть все ответы
Ответ:
timkoa
timkoa
17.04.2023
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 оценок)
Ответ:
Ulysses228
Ulysses228
17.04.2023
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 оценок)
Это интересно:
Х
Как сделать светящуюся палочку: пошаговая инструкция...
Д
Дом-и-сад
03.02.2020
Как быстро и эффективно избавиться от шоколадных пятен...
И
Школа дома: как не потеряться и организоваться...
О
Как составить план: секреты планирования на будущее...
К
Как создать простую таблицу стилей CSS с помощью Notepad...
К
Как уничтожить жесткий диск: советы и рекомендации...
13.09.2021
Как всегда выигрывать спор...
Х
Как состарить дерево: советы для создания эффекта возраста...
Д
Дом-и-сад
11.07.2020
Как быстро и эффективно очистить вентиляционное отверстие для сушилки одежды?...
С
Как правильно мыть волосы: советы от профессионалов...
Новые ответы от MOGZ: Информатика
математика620
Запиши число 12498 в развёрнутом виде, начиная со старшего разряда...
funny43
funny43
17.12.2021
1 Вариант Итоговая контрольная работа. 1. Как называется свойство алгоритма, означающее, что он всегда приводит к результату через конечное, возможно, очень большое, число шагов?...
kassaalevtina
kassaalevtina
26.12.2022
Адамның өзі жасаған әдеби шығармаларға,компьютерлік программаларга,драммалык жане музыкалык шыгармаларга,саулет туындыларына құқық A жеке құқық B мүліктік құқық C Авторлық құқық...
Sladkayaaaaaa
Sladkayaaaaaa
16.01.2023
Построить логическую схему, соответствующую логическому выражению. Определить значение логического выражения F, построив таблицу истинности для заданной логической схемы. Написать...
lana030935
lana030935
09.02.2020
Укажи логические операции не если истина и ложь или...
hromovaalyona2
hromovaalyona2
30.04.2021
Таблицу истинности выражения неА или не(В или С) следовательно В...
lilia25021
lilia25021
16.12.2020
2. SketchUp Make программасында шаршы жасау ритмін жазыңдар....
Ostap2010
Ostap2010
09.09.2020
запишите характеристику вербальной модели. Приведите пример вербальной модели...
Amilina11
Amilina11
17.03.2022
Составьте,,схему разновидностей продукты !...
olegneoleg
olegneoleg
17.03.2022
Вбольнице идет наблюдение за температурой больных. температура может изменяться от 35 до 39 градусов и измеряется с точностью до 0,1 градуса. для записи информации о температуре...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ