1)program s_parallelogramm; vara,h,s: real; begin write('основание = '); readln(a); write('высота = '); read(h); if ((a=0) or (a< 0)) or ((h=0) or (h< 0)) then writeln('ошибка! значения основания и высоты должно быть натуральными числами') else begin s: =a*h; writeln('площадь (s) параллелограмма = ', s); end; end.
2)program sp_kvadrata; vara,p,s: real; begin write('сторона квадрата = '); readln(a); p: =4*a; s: =sqr(a); writeln('периметр (p) квадарата = ', p); writeln('площадь (s) квадарата = ', s); end.
3)program e_kinet; varm,v,e: real; begin write('масса тела (m, кг) = '); readln(m); write('скорость тела (v, км/ч) = '); readln(v); e: =m*sqr(v)/2; writeln('кинетическая энергия (ек, дж) = ', e); end.
1)program vivod_chisel; vari, a: integer; begin a: =11; for i: =1 to 45 do begin write(a: 3); a: =a+2; end; end.
2)program sym_trex_chisel_krat5; varmas: array[1..900] of integer; i,a,sym: integer; begin a: =100; sym: =0; for i: =1 to 900 do begin mas[i]: =a; if mas[i] mod 5 = 0 then sym: =sym+mas[i]; a: =a+1; end; writeln('сумма трехзначных чисел, кратных 5 = ', sym); end.
Поделитесь своими знаниями, ответьте на вопрос:
Вводится целое положительное число. найти сумму цифр и среднее арифметическое нечетных цифр python
var n: integer; x1,x2,x3,x4,x5,x6,x7,x8,x9,x10: integer; beginread(n); x1: =n div 1000000000; x2: =n mod 1000000000 div 100000000; x3: =n mod 100000000 div 10000000; x4: =n mod 10000000 div 1000000; x5: =n mod 1000000 div 100000; x6: =n mod 100000 div 10000; x7: =n mod 10000 div 1000; x8: =n mod 1000 div 100; x9: =n mod 100 div 10; x10: =n mod 10 div 1; writeln('1 = ',x1); writeln('2 = ',x2); writeln('3 = ',x3); writeln('4 = ',x4); writeln('5 = ',x5); writeln('6 = ',x6); writeln('7 = ',x7); writeln('8 = ',x8); writeln('9 = ',x9); writeln('10 = ',x10); end.