Написать алгоритм для паскаля. составить программу, которая после введённого с клавиатуры числа от 1 до 99 обозначает денежную единицу дописывающую слово "копейка" в правильной форме.
//Составить программу, которая после введённого с клавиатуры числа от 1 до 99 обозначает денежную единицу дописывающую слово "копейка" в правильной форме.
begin var a := ReadInteger; var c : string; Assert(a >= 1); Assert(a <= 99); case a of 1, 21, 31, 41, 51, 61, 71, 81, 91: c := 'Копейка'; 2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: c := 'Копейки'; 5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..100: c := 'Копеек'; end; Writeln(a, ' ', c); end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i, n, min, max, imax, imin: integer;
begin write('Число элементов в массиве ');readln(n); setlength(a, n); min := maxint;max := -maxint; for i := 0 to n - 1 do begin a[i] := random(101) - 50; if a[i] > max then begin max := a[i];imax := i; end; if a[i] < min then begin min := a[i];imin := i; end; write(a[i]:4); end; writeln; writeln('min = ',min,' max = ',max); //меняем местами max и min и выводим массив swap(a[imax], a[imin]); for i := 0 to n - 1 do write(a[i]:4); end.
Тестовое решение: Число элементов в массиве 10 -19 -14 -44 -3 -4 -46 -1 -39 13 32 min = -46 max = 32 -19 -14 -44 -3 -4 32 -1 -39 13 -46
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const n = 20; var a: array[1..20] of integer; i, min, max: integer;
begin min := MaxInt;max := -MaxInt; writeln('Исходный массив :'); for i := 1 to n do begin a[i] := random(-10, 10);write(a[i]:4); if a[i] < min then min := a[i]; if a[i] > max then max := a[i]; end; writeln; writeln('min = ',min,' max = ',max); writeln('Массив после обработки:'); for i := 1 to n do begin if a[i] < 0 then a[i] := max else a[i] := min; write(a[i]:4); end; end.
begin
var a := ReadInteger;
var c : string;
Assert(a >= 1);
Assert(a <= 99);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: c := 'Копейка';
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: c := 'Копейки';
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..100: c := 'Копеек';
end;
Writeln(a, ' ', c);
end.