Кожа-горячо(холодно), язык сладко(горько),нос-ароматный
Begin
for var i:=0 to 10 do writeln('Корень из ',i,' = ', sqrt(i));
end.
больше ничего не требуется, всего 3 строчки.
Var
n, p: integer;
begin
Write('Введите натуральное четырехзначное число -> ');
Readln(n);
p := (n div 1000) * (n mod 10); { произведение первой и последней цифр }
n := (n mod 1000) div 10; { вторая и третья цифры }
p := p * (n div 10) * (n mod 10);
Writeln('Произведение цифр числа равно ', p)
end.
Тестовое решение:
Введите натуральное четырехзначное число -> 2437
Произведение цифр числа равно 168
Это дискета,то есть носитель
Скорость скачивания переведем в КБайты
192/8 = 24 КБ/с
определим время скачивания
7200/24 = 300 с
Ответ: 300 с