7 (3)

Лабораторная работа
Тема: составление программ усложненной структуры
Цель: развить навыки программирования алгоритмов различных структур
Ход работы
Задание 1.Дано натуральное число x. Найти первую цифру этого числа.
Program dva;
var
x:integer;
begin
readln(x);
while x>10 do
x:=x div 10;
writeln(x);
end.
Задание 2. , если 1≤ х ≤ 5, ∆x = 0,46.
Вывод: развила навыки программирования алгоритмов различных структур