По заданному числу вывести рублей например ввел число 5 после enter вышло 5 рублей.

Var 
  s: integer;
  t: string;
begin  
  write('Введите сумму: '); 
  read(s); 
  case (s mod 10) of
    1: t:=' рубль';
    2..4: t:=' рубля';
    0, 5..9: t:=' рублей';
    else t:='no';
  end;  
  write(s,t);
end.

Пример:
Введите сумму: 5
5 рублей

Введите сумму: 91
91 рубль

№1

ответ: WinRar.

Пояснение: WinRar - архиватор, поддерживающий большое количество расширений архивов.

№2

ответ: Internet Explorer, MS Excel*, MS PowerPoint*.

Пояснение:

Internet Explorer - браузер от Microsoft, установленный на устройствах с Windows по умолчанию. Является системным.MS Excel (Microsoft Office Excel) - программа для работы с электронными таблицами. Входит в набор приложений Microsoft Office.MS PowerPoint (Microsoft PowerPoint) - программа для работы с презентациями. Входит в набор приложений Microsoft Office.WinZip - архиватор (если честно, про него не слышал). Не входит в набор системных программ Windows.C++ - это даже не программа, а язык программирования. Не подходит.Inkscape - редактор векторной графики. Не входит в набор системных программ Windows.

* Вообще, я не уверен насчёт того, что они прям входят в набор системных программ, так как MS Office не всегда предоставляется вместе с Windows. Но, поскольку тут нужно несколько вариантов ответа, то, думаю, это подходит больше всего.

1)

Объяснение:

Var

a,b,c: integer;

Begin

Writeln('ВВЕДИТЕ ЧИСЛО a ');

Readln(a);

Writeln('ВВЕДИТЕ ЧИСЛО b ');

Readln(b);

Writeln('ВВЕДИТЕ ЧИСЛО c');

Readln(c);

If ((a<b)AND(a<c)) then

Writeln( ' Наименьшее число a = ' , a);

If ((b<a)AND(b<c)) then

Writeln( ' Наименьшее число b = ' , b);

If ((c<a)AND(c<b)) then

Writeln( ' Наименьшее число c = ' , c);

end.

2)

Var

a,b: integer;

Begin

Writeln('ВВЕДИТЕ ЧИСЛО a');

Readln(a);

Writeln('ВВЕДИТЕ ЧИСЛО b');

Readln(b);

If ((a mod 2 = 0 )AND(b mod 2 = 0)) then

Writeln('СУММА ЧЕТНЫХ ЧИСЕЛ = ' , a+b)

Else

Writeln( 'Два числа не являются четными ' );

end.