Решить в pascal. дано вещественное число-цена 1кг конфет. вывести стоимость 1.2, 1.4, кг конфет

195

305

Посмотреть ответы 2

Ответы на вопрос:

arsenandreeev

Информатика

4,7(53 оценок)

Var i: integer; price: real; begin read(price); for i : = 6 to 10 do writeln(i/5, 'kg = ', price*i/5); end.

Goodok10

Информатика

4,7(77 оценок)

Вpascalabc.net эта решается легко и быстро. в других версиях будет монстрик. // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! procedure makefile(path: string); // не относится к , создает файл text со 100 числами begin writelines(path,seqrandom(100,-99,99).select(x-> x.tostring)) end; begin makefile('myfile1.txt'); // теперь у нас есть текстовый файл из 100 случайных чисел // собственно, решение var n: =readinteger('укажите количество чисел: '); var a: =readlines('myfile1.txt').take(n).toarray; writeln('исходная последовательность'); a.println; writeln('результирующая последовательность'); a: =a.orderby(x-> x.last).toarray; a.println; writealllines('myfile2.txt',a); end. пример укажите количество чисел: 15 исходная последовательность 51 -9 17 -12 7 -15 -20 50 98 19 56 67 -57 -42 64 результирующая последовательность -20 50 51 -12 -42 64 -15 56 17 7 67 -57 98 -9 19