<h2>Программа не будет работать без <u>ключевого слова алг</u> и <u>ключевого слова кон</u></h2>
Если не показывабют число значит оно умножено на 0
а) 10010
б) 1030200
... - уже данный код в условии
s := 0;
min := 10;
for res := 1 to 4 do
begin
digit := n mod 10;
if (digit mod 2 = 1) then
begin
s += digit;
if (digit < min) then
min := digit;
end;
n := n div 10;
end;
writeln(s * min);
end.
program noname;
uses crt;
var
a:array[1..100] of integer;
i,n,k:byte;
begin
clrscr;
for i:=1 to 20 do begin
randomize;
a[i]:=random(100)-50;;
write(a[i],' ');
if (a[i] mod 2=0) and (a[i]<>0) then k:=i;
end;
n:=0;
for i:=1 to k do
if a[i]<0 then n:=n+1;
writeln;
writeln(k,'-номер последнего четного');
writeln(n,'-число отрицательных элементов до ', a[k])
end.
«Alt+[Shift]+Tab» — переключение между окнами;
«Alt+F4» — закрыть активное окно;
«Alt+Space (пробел)» — открытие системного меню окна. С помощью него можно закрывать, сворачивать, разворачивать, перемещать и изменять размер окна без помощи мыши;
«Alt+Shift» или «Ctrl+Shift» — переключить язык;
«Ctrl+Alt+Delete» — открытие окна «Безопасность Windows»;
«Win» — открытие/закрытие меню «Пуск»;
«Ctrl+Esc» — открытие/закрытие меню «Пуск»;
«Win+D» — свернуть/восстановить все окна, включая диалоговые;
«Win+E» — открытие программы «Проводник»;
«Win+R» — открытие окна «Запуск программы» («Пуск» --> «Выполнить…»);
«Win+F» — открытие окна для поиска;
«Win+L» — заблокировать компьютер;
«Win+M» — сворачивает все окна, кроме диалоговых;
«Win+Pause/Break» — открытие окна «Система»;
«Ctrl+Shift+Esc» — открытие окна «Диспетчер задач»;
«Print Screen» — поместить снимок всего экрана в буфер обмена. В MS-DOS использовалась для вывода на принтер содержимого экрана;
«Alt+Print Screen» — поместить снимок активного окна в буфер обмена;