Question

Д/З Задача 1.
Створити задачу для переведення кілометрів в метри, дециметри, сантиметри
Алгоритм
Ввести кількість кілометрів
Здійснити обрахунки
Вивести на екран

Answer 1

• program ceff0a25;
• var a:Integer;
• begin
• Write('Введите км: = ');
• Read(a);
• Writeln(a,' км - ', a*1000,' м');
• Writeln(a,' км - ', a*10000,' дм');
• Writeln(a,' км - ', a*100000,' см');
• end.