Помогите составить программы, пожалуйста!!СРОЧНО!!
Контрольная работа по теме "использование целочисленных функций", билет номер 3
1. Даны 2 трехзначных числа. Найти сумму средних цифр.
2. Дано пятизначное число. Найти сумму 2 и 3 цифр.
3. Дано шестизначное число. Удалить 2 цифру.
Язык Паскаль, программа QBasic
Ответы1
Ника1 год назад
Наибольшее:
if a > b then max := a else max:=b;
Сумма цифр:
sum:=0;
while n > 0 do
begin
sum:=sum+n mod 10;
n:=n div 10;
end;
