В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
DaraMarkos
DaraMarkos
07.05.2022 20:08 •  Информатика

Собери отдельный проект для отображения азбуки Морзе на странице браузера.тебе нужно придумать конструкцию, которая будет перебирать каждый элемент словаря и отображать этот элемент на странице браузера. Предлагаю создать таблицу - тег table , внутри таблицы можно использовать тег - tr это строка в таблице и тег td это ячейки в таблице. * отдели границей ячейки друг от друга

morse = {

'A': '.-',

'B': '-...',

'C': '-.-.',

'D': '-..',

'E': '.',

'F': '..-.',

'G': '--.',

'H': '',

'I': '..',

'J': '.---',

'K': '-.-',

'L': '.-..',

'M': '--',

'N': '-.',

'O': '---',

'P': '.--.',

'Q': '--.-',

'R': '.-.',

'S': '...',

'T': '-',

'U': '..-',

'V': '...-',

'W': '.--',

'X': '-..-',

'Y': '-.--',

'Z': '--..'

}

Показать ответ
Ответ:
иоргерлпщпл
иоргерлпщпл
20.11.2022 03:03

ответ:

. в нужно вывести все составные числа из промежутка [2; n]. код программы:

program lab3;

var i,n,j,s,l: integer;

m: real;

begin

readln (n);

for i: =2 to n do

begin

s: =trunc (sqrt (i));

for l: =2 to s do

begin

m: = i mod l;

if m=0 then

write (' ',i);

end;

end;

end.

но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?

var

i, n, j, s, l: integer;

m: real;

begin

readln(n);

for i : = 2 to n do

begin

s : = trunc(sqrt(i));

for l : = 2 to s do

begin

m : = i mod l;

if m = 0 then

begin

write(' ', i);

break;

0,0(0 оценок)
Ответ:
lehasokol03
lehasokol03
03.09.2020 14:02

===== PascalABC.NET =====

1)

begin

 var a := ArrRandom(10, -80, 79);

 a.Println;

 var (j, k) := (-1, 0);

 for var i := 0 to a.High do

   if a[i].IsEven then

   begin

     k += 1;

     if k = 5 then

     begin

       j := i;

       break

     end  

   end;

 if j = -1 then

   Println('Нет достаточного числа четных элементов')

 else

 begin

   a[j] := Sqr(a[j]);

   a.Println

 end

end.

2)

begin

 var a := ArrRandom(10, -80, 79);

 a.Println;

 var imax := a.IndexMax;

 a[imax] -= 100;

 Swap(a[imax], a[a.High]);

 a.Println

end.


Дан одномерный массив т, созданный генератором случайных чисел из диапазона -80 до 79, размерности 1
Дан одномерный массив т, созданный генератором случайных чисел из диапазона -80 до 79, размерности 1
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота