Собери отдельный проект для отображения азбуки Морзе на странице браузера.тебе нужно придумать конструкцию, которая будет перебирать каждый элемент словаря и отображать этот элемент на странице браузера. Предлагаю создать таблицу - тег 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': '--..'
}
ответ:
. в нужно вывести все составные числа из промежутка [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;
===== 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.