Информатика, вопрос задал vksaharkov , 2 года назад

Найти произведение вторых цифр у двух натуральных четырехзначных чисел.
в паскале пожалуйста

Ответы на вопрос

Ответил uplmtq

Ответ:

begin

var (first, second) := readinteger2;

write((first div 100 mod 10) * (second div 100 mod 10));

end.

Объяснение:

begin // Начало программы

var (first, second) := readinteger2; // Считываем числа с клавиатуры

write((first div 100 mod 10) * (second div 100 mod 10)); // Вывод ответа.

Разберем на примере:

Числа: 1234, 5678

div 100 - целочисленное деление

Получаем:

1234 div 100 = 12

5678 div 100 = 56

mod 10 - остаток от деления

12 mod 10 = 2

56 mod 10 = 6

end. // Конец программы

vksaharkov: привет! мы еще не изучали second, readinteger2, first

vksaharkov: не мог бы ты сделать по типу такого:
uses crt;
var
s,a,a1,a2,a3,a4,a5,a6,a7:integer;
begin
writeln('введите 5-значное число');
read (a);
a1:=a div 10000;
a2:= a div 1000;
a3:= a2 div 10;
a4:= a2 mod 10;
a5:= a mod 100;
a6:= a5 div 10;
a7:= a5 mod 10;
s:=a1+a3+a4+a6+a7;
clrscr;
write (s);
end.

uplmtq: var
first, second: integer;
begin
read(first, second);
write((first div 100 mod 10) * (second div 100 mod 10));
end.