1 верста=500 саженей; 1 сажень=3 аршина; 1 аршин=16 вершков; 1 вершок=44,45 мм. Длина некоторого отрезка составляет Р метров. Перевести ее в русскую неметрическую систему.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var s:=ReadLines('in.txt').ToArray; var n:=StrToInt(s[0]); var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray; var f:=OpenWrite('out.txt'); Writeln(f,n,' - (кол-во чисел)'); foreach var e in a do Write(f,e,' '); Writeln(f); Writeln(f,'Среднее значение четных ', a.Where(x->x.IsEven).Average); Writeln(f,'Среднее значение нечетных ', a.Where(x->x.IsOdd).Average); f.Close end.
begin
write('Введите вес в килограммах ');
Readln(k);
Write('Во что хотите перевести (мгр, гр, Цн, Тн, КТн, МТн): ');
Readln(s);
case s of
'мгр': write(k, 'кг = ', k * 1000000, ' мгр');
'гр': write(k, 'кг = ', k * 1000, ' гр');
'Цн': write(k, 'кг = ', k / 100, ' ц');
'Тн': write(k, 'кг = ', k / 1000, ' Т');
'КТн': write(k, 'кг = ', k / 1000000, ' Кт');
'МТн': write(k, 'кг = ', k / 1000000000, ' Мт')
Else write('Неправильно введена единица измерения');
End;
end.