Program z1;
var s,p,i:integer;
begin
s:=0;
p:=1;
for i:= 1 to 10 do
if i mod 2 =0 then s:=s+i
else p:=p*i;
writeln('сумма четных',s);
writeln('произведение нечетных',p);
end.
Я б написала так, в цикл while добавим счётчик суммы и произведения, s и p соответственно (Первоначально, s := 0; p := 1). Считаем всё это, пока n > 0. Затем в конце просто выводим сумму и произведение)
program mimi;
var n, p, s:integer;
begin
read(n);
s := 0;
p := 1;
while n > 0 do begin
s := s + n mod 10;
p := p*(n mod 10);
n := n div 10;
end;
writeln(s);
writeln(p);
<span>end.</span>
1(электроника)-3,4,5,7,8,10
2(инструмент)-2
3(эмоция)-1
4(явления)-6
5(язык)-9
что не опнятно именно? как работает блок-схема?
если в блок-схеме дело, то объясню. Это цикл While(пока). Пишу блок-схему на русском.
Начало
Ввод х, у
Пока х=у, если да то вывод Х и уход на конец.
если нет, идёт дальше условный оператор if(если).
Если x>y если да, то ячейке х присвой значение х-у, если нет, то ячейке у присвой значение у-х. Дальше программа уходит на повтор.
Объясню на примере чисел.
вводим данные х=10, у=15;
10 не равно 15, значит идём на условный оператор if
10 < 15, ячейке У присваиваем значение 15-10
на экране 5.
на всякий могу написать программу.
Program af;
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,y;
while x=y do begin
if x>y then x:=x-y
else Y:=Y-X;
end;
writeln(x);
readln;
end.
N = 2^i
256 = 2^i
i = 8 бит = 1 байт глубина кодирования 1 символа
1/32 Мбайт = 32 Кб = 32768 байт
<span>32768 байт / 1 байт = 32768 символов в тексте</span>
