Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.
незачто
.com, .ru , .ua, .by и т.д.
"Идти пока не упрёшься в стену. Повернуть на лево"
1. Чертёж — проекционное изображение предметов в масштабе на определённом носителе информации
2. Схема – это представление некоторого объекта в общих чертах с помощью условных обозначений графическое отображение состава и структуры сложной системы.
3. Быстрый счет, возможность визуализации расчетов
4. 2Na+CI2=2NaCI , а=а+b
5. Карта России, график осадков в Москве
6. (прикрепила картинку) По описанию это скорее чертеж, но здесь не соблюдены пропорции, поэтому это может быть и схемой.