1) найти сумму цифр 3-х значного числа. 2) дано 2-х значное число, нужно его развернуть и сложить результат с исходным числом (пример: число 82. 82+28=110) стелайте такой таблицей в столбик со стрелочками
begin write('Введите трехзначное число: '); readln(N); t3 := N mod 10; N := N div 10; t2 := N mod 10; t1 := N div 10; writeln('Сумма цифр: ', t1 + t2 + t3); end.
var n,y:integer;
begin readln(n); y:=(n mod 10)*10 + n div 10; writeln(n.ToString+'+'+y.ToString+'='+(n+y)) end.
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var L:=new List<integer>; Writeln('Вводите целые числа, окончание ввода по -777'); var n:integer; repeat n:=ReadInteger; if n<>-777 then L.Add(n); until n=-777; Writeln('Исходный список'); Writeln(L); n:=ReadInteger('Введите искомое число:'); var p:=L.FindIndex(k->k=n); // искомый элемент if p<0 then Writeln('Искомый элемент в списке не найден') else begin Writeln('Элемент ',L.Item[p-2],' удален'); L.RemoveAt(p-2); Writeln(L); // удалили и убедились n:=ReadInteger('Введите число для вставки:'); L.Insert(p-1,n); Writeln(L) end end.
Пример Вводите целые числа, окончание ввода по -777 1 6 12 73 -15 34 18 0 24 -777 Исходный список [1,6,12,73,-15,34,18,0,24] Введите искомое число: 34 Элемент 73 удален [1,6,12,-15,34,18,0,24] Введите число для вставки: 1000 [1,6,12,-15,1000,34,18,0,24]
Винер (Wiener) Норберт (26.11.1894, Колумбия, Миссури, — 19.3.1964, Стокгольм) , американский учёный. К 14 годам изучил высшую математику, в 18 лет стал доктором философии Гарвардского университета. С 1919 преподаватель, с 1932 профессор Массачусетского технологического института. Занимался математической логикой и теоретической физикой. В 1920—30-е гг. получил известность как математик работами по теории потенциала, гармоническим функциям, рядам и преобразованиям Фурье, тауберовым теоремам, общему гармоническому анализу. В 1945—47 годах у Винера возникла идея о необходимости создания единой науки, изучающей процессы хранения и переработки информации, управления и контроля. Для этой науки Винер предложил название кибернетика, получившее общее признание. Норберту Винеру принадлежит, несомненно, первое место в пропаганде значения кибернетики во всей системе человеческих знаний.
N: word;
t1, t2, t3: byte;
begin
write('Введите трехзначное число: ');
readln(N);
t3 := N mod 10;
N := N div 10;
t2 := N mod 10;
t1 := N div 10;
writeln('Сумма цифр: ', t1 + t2 + t3);
end.
var
n,y:integer;
begin
readln(n);
y:=(n mod 10)*10 + n div 10;
writeln(n.ToString+'+'+y.ToString+'='+(n+y))
end.