Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
mashok3
07.03.2023 22:23 •
Информатика
:написать программу, которая выведет на экран таблицу умножения (через оператор while)(всю), типа: 2*2=4; 2*3=*9=72; 9*9=81. язык- pascal abc.
Ответ:
lolilol2
07.10.2020 10:29
Var
n, i: integer;
begin
n := 0;
while (n <= 1) or (n > 10) do
begin
write('Введите n в диапазоне от 2 до 10 = ');
readln(n);
end;
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
end.
без проверки
var
n, i: integer;
begin
write('Введите n в диапазоне от 2 до 10 = ');
readln(n);
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Rımma7
28.09.2020 04:31
Определить без компьютера, что будет напечатано при выполнении следующих фрагментов программ: 1. k: =20; k: =k+10; if k+10 30 then k: =8 else k: =k-1; writeln (k) ответ: 2. k:...
golubalex01
28.09.2020 04:31
Объясните по подробнее как решать такие 1)для какого из указанных значений числа x истинно высказывание ((x 5)→(x 3)) ù ((x 2)→(x 1)) 1) 1 2) 2 3) 3 4) 4 2)для какого имени истинно...
ЛордТарнум
02.08.2020 07:06
Скорость передачи данных по некоторому каналу равна 64000 бит/с. передача файла по этому каналу связи заняла 16 с. определите размер файла в килобайтах....
Markich7770777
15.02.2020 09:02
Скорость передачи данных по некоторооу каналу связи равна 32 кбит/с. передача текстового файла по этому каналу связи заняла 15 с. определите, сколько страниц содержал переданный...
nairchik
15.02.2020 09:02
Скорость передачи данных по некоторому каналу связи равна 512 кбит/с.передача файла по этому каналу связи заняла 4 мин. определите размер файла в мегабайтах....
esina3010
28.01.2021 11:38
Вася пригласил друга коля в гости, но не сказал ему код подъезда, а прислал сообщение: «в последовательности цифр 8, 4, 9, 3, 6 все четные цифры разделить на два, а из всех нечетных...
Вэшоу
17.01.2021 06:49
Сравните различные виды сетей: 1. отличие wi-fi и wimax.2. сходство wi-fi и wimax.3. главная особенность bluetooth....
90Лилиана11111
09.10.2021 01:16
Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 90 точек и высотой 100 точек?...
Ученица54321
09.10.2021 01:16
Информационный объём текста, подготовленного с компьютера, равен 31 мб. 1символ весит 1 байт. сколько символов содержит этот текст?...
miras20081
01.06.2022 19:43
1) с информатикой, переведите из десятичной системы счисления в восьмеричную и шестнадцатеричную систему счисления (с точностью до трех знаков после запятой): 175, 24(10) 2)переведите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
n, i: integer;
begin
n := 0;
while (n <= 1) or (n > 10) do
begin
write('Введите n в диапазоне от 2 до 10 = ');
readln(n);
end;
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
end.
без проверки
var
n, i: integer;
begin
write('Введите n в диапазоне от 2 до 10 = ');
readln(n);
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
end.