(45 ) (pascal) сгенерировать n случайных трехзначных чисел. вывести их на экран. посчитать количество чисел, в записи которых все цифры различны. (число n ввести с клавиатуры, оно должно быть больше нуля. если n меньше нуля, то вывести сообщение об ошибке и остановить алгоритм
Ответы
<!doctype html>
<html lang="ru">
<head>
<meta charset="utf-8">
<title>Имя страницы</title>
</head>
<body>
<p>Текст</p>
</body>
</html>
Объяснение:
<p> - определение текстового абзаца.
<meta charset="utf-8"> - кодировка страницы.
<!doctype html> - объявляем тип страницы HTML 5.
<html lang="ru"> - объявляем язык страницы.
В <body> вписываем "тело" нашей веб-страницы.
Для создание веб-страницы необходимы знания HTML. Благо в 2019 году на просторах интернета есть много тематических сайтов.
Для стилизации веб-страницы необходимы знание каскадных таблиц стилей - CSS.
HTML и CSS просты в изучении.
Наполняем сосуд на 9 литров и переливаем из него воду в 7 л. сосуд (в 9 л. сосуде остаётся 2 л)выливаем воду из 7л. сосуда и заливаем туда 2 л воды из 9 л. сосуда,наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 4 л. )выливаем воду из 7л. сосуда и заливаем туда 4 л из 9 л. сосуда,наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 6 л. )Выливаем воду из 7 л. сосуда и заливаем туда 6л. из 9 л. сосуда , наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 8 л. )Выливаем воду из 7л. сосуда и заливаем туда воду из 9л. сосуда (8-7=1л остался в 9л. Сосуде)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Скласти програму виведення послідовності факторіалів перших десяти натуральних чисел
Автор: zolotayaoxana1982
Решите на завтра информатика 8 класс
Автор: club-pushkin
Удалить из строки все слова , заканчивающиеся на гласную букву. написать программку на с++
Автор: Кристина Валентиновна
Файл размером 500 кбайт передается через некоторое соединение в течении 2 минут
Автор: emilmishin1032
var i,n,k,a:integer;
begin
write('Введите количество трехзначных чисел, которые надо сгенерировать: ');
readln (n);
if n <=0 then writeln ('Ошибка')
else for i:=1 to n do
begin
a:=random (900)+100;
write (a,' ');
if (a div 100 <> a div 10 mod 10) and (a div 10 mod 10 <> a mod 10) and (a div 100 <> a mod 10) then k:=k+1
end;
writeln;
if k <> 0 then write ('Количество чисел, в записи которых все цифры различны ',k)
end.
Объяснение: