1. Вычисление произведения цифр четырехзначного числа:

program Multiply_Digits;

var

num, digit1, digit2, digit3, digit4, result: integer;

begin

writeln('Введите четырехзначное число:');

readln(num);

digit1 := num div 1000;

digit2 := (num div 100) mod 10;

digit3 := (num div 10) mod 10;

digit4 := num mod 10;

result := digit1 * digit2 * digit3 * digit4;

writeln('Произведение цифр числа: ', result);

end.

2. Диалог с ЭВМ:

program Dialogue;

var

name, surname, hobby: string;

begin

writeln('Меня зовут IBM. А тебя?');

readln(name);

writeln('А фамилия?');

readln(surname);

writeln('Какое твое любимое занятие?');

readln(hobby);

writeln('Понятно. Твое хобби - ', hobby, '. Тебя зовут ', name, ', фамилия ', surname, '.');

end.

Обратите внимание, что в Паскале переменные объявляются в разделе var, а затем используются в блоке begin-end. Также необходимо использовать readln() для ввода данных с клавиатуры и writeln() для вывода результатов на экран.

#9uneasy

Ответ:

1.program ProductOfDigits;

var

 number, digit1, digit2, digit3, digit4, product: integer;

begin

 writeln('Введіть чотиризначне число:');

 readln(number);

 digit1 := number div 1000;             // Перша цифра

 digit2 := (number div 100) mod 10;     // Друга цифра

 digit3 := (number div 10) mod 10;      // Третя цифра

 digit4 := number mod 10;               // Четверта цифра

 product := digit1 * digit2 * digit3 * digit4;

 writeln('Добуток цифр числа ', number, ' дорівнює ', product);

end.

2.program DialogWithUser;

var

 name, surname, hobby: string;

begin

 writeln('Меня зовут IBM. А тебя?');

 readln(name);

 writeln('А фамилия?');

 readln(surname);

 writeln('Какое твое любимое занятие?');

 readln(hobby);

 writeln('Понятно. Твое хобби - ', hobby, '. Тебя зовут ', name, ', фамилия ', surname, '.');

end.

Объяснение: