Решение практических задач

Устные упражнения

Что будет выведено на экран после выполнения программ:

1.

begin

for var i:=10 to 15 do

begin

write(i);

end;

end.

2.

begin

for var i:=10 to 15 do

begin

write(i, ' ; ’);

end;

end.

3.

begin

for var i:=10 to 15 do

begin

writeln(i);

end;

end.

4.

begin

for var i:=1 to 15 do

begin

if i mod 3 =0 then write(i, ‘; ‘);

end;

end.

5.

var S: integer;

begin

S:=0;

for var i:=5 to 10 do

begin

S:=S+i;

end;

write (S);

end.

6.

var S: integer;

begin

S:=0;

for var i:=5 to 10 do

begin

if i mod 2 =1 then S:=S+i;

end;

write (S);

end.

7.

var k: integer;

begin

k:=0;

for var i:=5 to 20 do

begin

if i mod 5 =0 then k:=k+1;

end;

write (k);

end.

Задача 1. Выделение цифр из числа

Дано натуральное число. Вывести все цифры числа по одной в строке (начиная с разряда единиц).

var n, z: integer; begin readln(n); //ввод числа while n>0 do begin z:=n mod 10; //текущая цифра числа writeln(z); //вывод цифры на экран n:=n div 10; //уменьшение числа в 10 раз end; end.

Протестируйте программу на числах: 12345, 987654321, 101.

Задача 2. Количество цифр числа

Дано натуральное число. Найти количество его цифр.

var n, z, k: integer; begin readln(n); //ввод числа k:=0; //количество цифр

while n>0 do begin

z:=n mod 10; //текущая цифра числа

writeln(z); //вывод цифры на экран

n:=n div 10; //уменьшение числа в 10 раз

k:=k+1; //количество цифр увеличиваем на 1 end;

writeln('Количество цифр = ', k); //вывод количества цифр на экран

end.

Протестируйте программу на числах: 5, 987654321, 101.