Question

Розв'язати задачі з прикріпленого файлу. Скрін коду

Answer 1

Відповідь:

1. Текст програми на мові Pascal(результат виконання програми на фото):

program KilosToTons;

var

MassInKilos, Tons: integer;

begin

// Запитати користувача ввести масу в кілограмах

writeln('Введіть масу в кілограмах:');

readln(MassInKilos);

// Обчислити кількість повних тон

Tons := MassInKilos div 1000;

// Вивести результат

writeln('Маса в ', Tons, ' тон');

end.

2. Текст програми на мові Pascal(результат виконання програми на фото):

var

fileSizeInBytes, fileSizeInKb: integer;

begin

// отримати розмір файлу в байтах від користувача

write('Введіть розмір файлу в байтах: ');

readln(fileSizeInBytes);

// обчислити кількість повних кілобайт

fileSizeInKb := fileSizeInBytes div 1024;

// вивести результат

writeln('Розмір файлу в кілобайтах: ', fileSizeInKb);

end.