Напечатать числа следующим образом 25 25.5 24.8 26 26.5 25.8 . . 35 35.5 34.8 в паскале

// pascalabc.net 3.1, сборка 1213 от 04.04.2016 var   i: integer; begin   for i: =1 to 11 do writeln(24+i,24.5+i: 5: 1,23.8+i: 5: 1) end. результат выполнения программы: 25 25.5 24.8 26 26.5 25.8 27 27.5 26.8 28 28.5 27.8 29 29.5 28.8 30 30.5 29.8 31 31.5 30.8 32 32.5 31.8 33 33.5 32.8 34 34.5 33.8 35 35.5 34.8

var r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

 

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

 

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.

1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).

2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.

3. записать результат под горизонтальной чертой на вертикали единиц.

4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.