Напишите программу на языке паскаль, для решения следующей : для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры). (подсказка. используйте тип данных integer и операции div и mod)

LetovSup LetovSup    2   27.05.2019 13:00    1

Ответы
RomanenkoAA RomanenkoAA  24.06.2020 13:45
Var a,b,c,d:integer;
begin
readln(a);
b:=(a div 100)mod 10;
c:=(a mod 100)div 10;
d:=b+c;
writeln(d);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Leonelle Leonelle  24.06.2020 13:45
Var a,b,c:integer;
begin
read (c);
a:=c div 100;  a:=a mod 10;
b:=c div 10;  b:=b mod 100;
write(a+b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика