Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
var a:array [1..20] of integer;
i:integer;
p:real;
begin
p:=1;
for i:= 1 to 20 do
begin
a[i]:= Random(46)-20;
if i mod 2 = 0 then p:=p*a[i]
end;
writeln('Массив: ',a);
writeln('Произведение элементов с чётными номерами равно: ',p);
end.
Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Ответ:
1. Только латинские буквы и цифры
2. Только строчные буквы
---------------------------------------------------------------
В ОС Windows в имени файла запрещено использование следующих символов: \, /, :, *, ?, ", <, >, |. В Linux эти символы, кроме /, допустимы, хотя использовать их следует с осторожностью, так как некоторые из них могут иметь специальный смысл, а также из соображений совместимости с другими ОС.
Объяснение:
https://netology-university.bitbucket.io/codestyle/naming/
https://it.wikireading.ru/1246
Подробнее - на Znanija.com - znanija.com/task/8975303#readmore
Современные технологии не стоят на месте, каждый пытается обогнать конкурента в инновационном дизайне, сверх продвинутой начинки устройства. С каждым днем сотни людей придумывают, что то новое. И так продолжается уже не первое столетие. Прогресс очень важен для тенденций технологий, ведь без него мы не за хотим что то купить.