Question

ПОМОГИТЕ СРОЧНО,ПРОБОЛЕЛ ТЕМУ ,Задание 1. Найти произведение цифр трехзначного числа. Исправьте программу, запишите правильный вариант.
Program 2pp;
Var a,b: integer;
Begin
Read (b);
c:=a mod 10; b:=a mod 100;
a:=a div 10;
Write (b,c,a);
End.

Задание 2. Определите, что вычисляет программа?
Programp2pp;
Var a,b: integer;
Begin
Read (a,b);
a:=a div 10;
b:=b div 10;
if a>b then write (a) else write (b);
End.

Задание 3. Определите, что вычисляет программа? Programp2pp;
Programp2pp;
Var a,b: integer;
Begin
Read (a,b);
b:=a + b;
a:=b- a;
b:=b - a
write (a,’ ‘, b);
End.


Задание 4. Составьте блок - схемы к заданию 1, 2.

Answer 1

Задание 1.

Program 2pp;

Var a,b: integer;

Begin

Read (a);

c:=a mod 10; b:=a div 100;

a:=(a div 10) mod 10;

Write (a*b*c);

End.

Задание2

программа выводит какое из чисел a div 10 или b div 10 больше.

Задание3

программа меняет местами значения a и b