ПОМОГИТЕ СРОЧНО,ПРОБОЛЕЛ ТЕМУ ,Задание 1. Найти произведение цифр трехзначного числа....

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