var a:array[1..7]of integer; i,s:integer; begin for i:=1 to 7 do begin a[i]:=random(9)+1; s:=s+a[i]; end; for i:=1 to 7 do write(a[i],' '); writeln; for i:=1 to 7 do if a[i] mod 3=0 then a[i]:=s; for i:=1 to 7 do write(a[i],' '); end.
1 - моделью 2 - меньше информации 3 - глобус, макет здания, муляж яблока, манекен 4 - рисунок, фотография 5 - знаковой 6 - смешанной 7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу 8 - существенные признаки объекта-оригинала 9 - разные модели объекта 10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро 11 - словесное описание, формула 12 - знаковой 13 - смешанной 14 - болт — чертеж болта, мелодия — нотная запись мелодии
var chislo, sum1, sum2, i:integer; Begin writeln ('Введите номер билета'); readln (chislo);
if (chislo>999999) or (chislo<100000) then writeln ('Такого билета нет') else Begin sum1:=0; for i:=1 to 3 do Begin sum1:=sum1 + (chislo mod 10); chislo:=chislo div 10; end;
sum2:=0; for i:=1 to 3 do Begin sum2:=sum2 + (chislo mod 10); chislo:=chislo div 10; end;
if (sum1=sum2) then writeln('Билет счастливый') else writeln('Билет несчастливый'); end;
var a:array[1..7]of integer;
i,s:integer;
begin
for i:=1 to 7 do begin a[i]:=random(9)+1; s:=s+a[i]; end;
for i:=1 to 7 do write(a[i],' ');
writeln;
for i:=1 to 7 do if a[i] mod 3=0 then a[i]:=s;
for i:=1 to 7 do write(a[i],' ');
end.