Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
закро
07.06.2020 04:03 •
Информатика
Лабораторная работа по информатике
👇
Увидеть ответ
Открыть все ответы
Ответ:
timkoa
07.06.2020
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
07.06.2020
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 оценок)
Это интересно:
02.09.2021
Как пережить плохую оценку: навыки управления эмоциями и продуктивной работы на ошибке...
Ф
Финансы-и-бизнес
13.02.2022
Как эффективно вести учет дебиторской задолженности?...
З
Здоровье
13.03.2023
10 уникальных советов о том, как помочь выздороветь близкому человеку...
К
Кулинария-и-гостеприимство
30.08.2020
Как использовать конвекционную тостер-печь: настоящий гид для начинающих...
С
Стиль-и-уход-за-собой
25.11.2021
Как легко и быстро растянуть обувь на каблуках?...
К
Кулинария-и-гостеприимство
31.01.2022
Огурец - искусство нарезки...
М
Мир-работы
27.04.2021
5 способов не отвлекаться на Интернет во время работы...
Х
Хобби-и-рукоделие
20.02.2022
Как просто и быстро сделать стильные шорты из старых джинсов: 5 шагов к идеальному летнему гардеробу...
31.01.2021
Как бороться со стрессом с помощью еды...
Д
Дом-и-сад
08.03.2021
Как самостоятельно заасфальтировать подъездную дорожку: пошаговая инструкция...
Новые ответы от MOGZ: Информатика
xomidov
18.10.2020
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. программа получает на вход количество чисел в последовательности,...
пиро3
02.01.2021
Составить таблицу истинности для формул: а)а-- (в|с) б)а-- (в^(только знак наоборот)с) -- (а-- )(а-- с)...
Andrew12331
22.12.2021
Який інтерфейс має операційна система Windows...
Pisos1337228
07.03.2020
Имя первой в мире женщины-программистан Ада Лавлейс - закодировано тремя Известно, что в алфавитe X оно весит 11 байтов, в алфавите У – 22 байта, а в алфавите Z - 55...
JSmail
15.09.2021
Айгуль сообщила другу свой 10-значный ip-адрес по телефону вдруг записал следующие цифры 37 1795 4234 Запишите этот ip-адрес в соответствии с правилами Воспользуйтесь...
kostya2031
19.09.2022
Укажите номера имён соответствующие маске *труд???* 1.сотрудник.doc 2.контрудар.doc 3.трудяга.xlasx 4.труды.xls 5.трудодень.xls 6.трудотерапия.xls...
айка392
20.08.2021
Число 1241 из пятеричной системы счисления в десятичную...
викториасн
20.08.2021
Ккакой форме представления информации , относится счет хоккейного матча?...
школьницаиркутск
20.08.2021
Некоторый текст содержит 20 символов каждый из которых закодирован 8 битами,определите информационный обьем сообщения....
89112897334artem1131
20.08.2021
Как называется количество бит приходящихся на кодирование цвета 1 пикселя...
MOGZ ответил
найти молярную массу и массовую долю M(CO2) CO3 H2SO3 AL2(SO4)3...
На каком матиреке можно найти все климатические пояса...
напишите 1 сравнение из стиха бородино...
Через запятую запишите пропущенные в тексте факты. Бумын начал борьбу...
Спишите, устно объясните правописание глаголов. 1. Попрыгунья Стрекоза...
, с подробным решением. 4.Переведите число 155 из десятичной системы...
Найти среднюю кинетическую энергию молекулы газа если концен трация...
388. Сократите дробь: 35+28 35-28 12-3 3 1) 3) 5 24 +3 24 - 3 15...
Ниже перечислены 66 газов, входящих в состав воздуха: 1.1. N2.2.2. O2...
This house __ last year. A) is building B) was built C) was build...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.