37 div 10 = 3
58 div 10 = 5
125 div 10 = 12
234 div 10 = 23
873 div 100 = 8
3985 div 1000 = 3
37 mod 10 = 7
58 mod 10 = 8
125 mod 10 = 5
234 mod 10 = 4
873 mod 100 = 73
3985 mod 1000 = 985
С проверочными данными сами разбирайтесь...
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ArrFill(ReadInteger('n='),ReadInteger('m=')*60);
Range(1,a.Length-1).ForEach(t->begin a[t]:=a[t-1]+10 end);
a.Println; a.Sum.Println;
end.
Пример:
n= 5
m= 10
600 610 620 630 640
51 ч 40 мин
</span>
Program one;
var: a: real;
begin
Writeln ('Введите число');
readln (a);
If a<0 then else a:=a+1 else writeln (a)
end.
Вроде так
В табличной форме может быть представлена однородная описательная информация объектов, обладающих одинаковыми наборами свойств.