Циклы. Решение задач

real;
Begin
writeln(‘введи n’);
readln(n);
S:=0;
i:=1;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln(S);
readln;
end.

Проверка домашнего задания

Вычислить сумму S=1+1/2+1/3+…+1/n

S:=0;
for i:=1 to n do S:=S+1/i;

while i<=50 do
begin
S:=sqr(i);
writeln(S);
i:=i+1;
end;
readln;
end.

Проверка домашнего задания

Вывести на экран квадраты натуральных чисел от 1 до 50

for i:=1 to 50 do writeln(sqr(i));

tsifra;
Var …
Begin
writeln(‘введи A’);
readln(A);
while A<>0 do
begin
p:=A mod 10;
writeln(p);
A:=A div 10;
end;
readln;
end.

Как найти последнюю цифру (р) каждого из данных чисел?
А=51234
А=3452
А=567
А=98
А=9

p:=A mod 10

и вывода данных

Блок проверки условия

Блок действия

A:=A div 10;
end;
readln;
end.

A’);
readln(A);
k:=0;
while A<>0 do
begin
p:=A mod 10;
k:=k+1;
A:=A div 10;
end;
writeln(k);
readln;
end.

Как найти последнюю цифру (р) каждого из данных чисел?
А=51234
Как изменить число А, отбросив последнюю цифру?
А=5123

p:=A mod 10

А:=A div 10

k:=k+1;

количество

k:=k+р;

сумму

занести его в В.

Program chislo;
Var …
Begin
writeln(‘введи A’);
readln(A);
B:=0;
while A<>0 do
begin
А:=А mod 10;
B:=B*10+p;
A:=A div 10;
end;
writeln(B);
readln;
end.

Порядок получения числа В
А=1234
В=4
В=43=40+3
В=432=430+2
В=4321=4320+1
В:=B*10+p

A<>0 do
begin
p:=A mod 10;
if p mod 2 =0
then К:=К+1;
A:=A div 10;
end;
writeln(К);
readln;
end.

Как найти последнюю цифру (р) каждого из данных чисел?
А=51234
А=29
Как определить чётность цифры?
А=51234
А=29

p:=A mod 10

р mod 2=0

Задание (устно). 1. Найти сумму чётных цифр числа
2. Найти количество нечётных цифр числа.
3. Найти количество нулей в записи числа.

блок-схему к задаче 1а
Повторить §10-13, 17, 18 (подготовиться к тесту и решению задач)
Профиль: Задания 3*- 6* страница 126 по выбору одну задачу