Составьте программный код по условию задачи: Определить сумму цифр двузначного числа, введенного с клавиатуры. Пример: Введите число:17 Сумма цифр равна 8
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 procedure MatPrint(a:array[,] of integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4); Writeln end end;
procedure MatSwap(a:array[,] of integer); begin for var i:=0 to Length(a,0)-1 do begin var jmin:=0; for var j:=1 to Length(a,1)-1 do if a[i,j]<a[i,jmin] then jmin:=j; Swap(a[i,jmin],a[i,Length(a,1)-1]) end end;
begin var a:=MatrixRandom(6,6,-99,99); Writeln('Исходный массив'); MatPrint(a); MatSwap(a); Writeln('Результирующий массив'); MatPrint(a) end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var x,a,x1,x2,delta,lambda,y:real; Write('Введите границы изменения аргумента и шаг: '); Read(x1,x2,delta); a:=1.44; x:=x1; repeat lambda:=Sqr(Tan(x*a/2*pi)); y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3); Writeln('x=',x,' y=',y); x+=delta until x>x2 end.
Тестовое решение Введите границы изменения аргумента и шаг: 1.2 2.0 0.2 x=1.2 y=1.63776729113963 x=1.4 y=1.81249323168809 x=1.6 y=2.04691849426225 x=1.8 y=2.40906764678559 x=2 y=4.09613421404126
print(sum([int(i) for i in list(input())]))
Объяснение: