Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
1) 01101011
2) а)50 б)214
3.а-2, б-1, в-4, г-3
4. <
>
=
5. a)68,105 б) 0,000152 в) 241300
6. а) 0,6711011*10³ б) 0,73211*10⁻³
1 копирование готовых изображений с фотокамеры.
2 ввод изображений с помощью сканера.
3 создание новых объектов.
var
i,p:integer;
begin
p:=1;
for i:=7 to 12 do
p:=p*i;
writeln(p);
end.