Допустим число 123. Нам нужно найти первое, второе и третье его число. То есть 1,2,3. потом их сложить или перемножить. Чтобы найти первое число нужно 123 разделить на 100,получиться 1.23,его мы округляем и получаем 1. Второе мы находим деля 123 на 100,получаем остаток 23, делим остаток на 10 и получаем 2. Третье число мы находим деля 123 на 10 и получаем остаток. Потом складываем их или перемножаем. Пример на pascal: //div это делить,mod отстаток var a,b,c,s: integer; begin Write('Введи число: '); Read(s); a:= s div 100; b:= s mod 100 div 10; c:= s mod 10; WriteLn('Сумма: '+a+b+c); WriteLn('Произведение: '+a*b*c); end.
begin var mes:=Arr('Январь','Февраль','Март','Апрель','Май','Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь'); var x:=ReadInteger('Введите номер месяца->'); case x of 12,1,2: Println('Зима'); 3,4,5: Println('Весна'); 6,7,8: Println('Лето'); 9,10,11: Println('Осень'); else begin Println('Такого месяца нет'); exit; end; end; Println('Месяц:',mes[x-1]); if x=12 then Println('Следующий:',mes[0]) else Println('Следующий:',mes[x]); if x=1 then Println('Предыдущий:',mes[11]) else Println('Предыдущий:',mes[x-2]); end.
Пример: Введите номер месяца-> 12 Зима Месяц: Декабрь Следующий: Январь Предыдущий: Ноябрь
2048 бит :8:1024= 0.25 Кбайт