var i,res,k:integer;
a:array[1..10] of integer;
begin
k:=0;
for i:=1 to 10 do
a[i]:=random(10,50);
res:=1;
for i:=1 to 10 do
if (a[i] mod 2=1) and (a[i] mod 5=0) then begin
res:=res*a[i];
k:= k+1;
end;
if k=0 then write('Таких чисел нет') else
write(res);
end.
Джостик
Графопосторитель
Принтер
Блок питания(Не точно)
Колонки
Карта расширения
End
Матричный принтер(Не точно)
Вроде так должно быть..
В научно-технических статьях, в учебниках, в справочниках знаки формальных языков встречаются постоянно.
Это небольшие рисунки, схемы, пиктограммы. Они применяются для сокращения текстов, для выражения закономерностей, для описания различных структур.
Примерами таких языков служат язык математических формул, нотная грамота, языки программирования и т.д.
Таким образом, знаки формальных языков можно встретить в текстах на естественных языках, например, в учебниках математики, в справочниках по химии, в самоучителях игры на музыкальных инструментах, в книгах по программированию.
Буду обозначать команду "умножение на 2" буквой m, "стереть последнюю цифру" буквой c.
а) 361 -> 722 -> 72 -> 7 (mcc)
361 -> 36 -> 72 -> 7 (cmc)
б) 457 -> 45 -> 90 -> 9 -> 18 -> 36 -> 72 -> 7 -> 14 (cmcmmmcm)
457 -> 914 -> 1828 -> 3656 -> 7312 -> 14624 -> 1462 -> 146 -> 14 (mmmmmccc)
Var
f: file of real;
a, amin, amax: real;
begin
Assign(f, 'input.dat');
Reset(f);
amin := 1e-20;
amax := 1e20;
while not Eof(f) do
begin
read(f, a);
if amin > a then amin := a;
if amax < a then amax := a
end;
Close(f);
writeln('Сумма минимального и максимального элементов равна ', amin + amax)
end.