// 2.
function RuEnding(a: integer): string;
begin
Result := 'ек';
if not ((a mod 100) in [11..14]) then
case a mod 10 of
1: Result := 'йка';
2..4: Result := 'йки';
end
end;
begin
var a := ReadInteger();
Writeln(a, ' копе' + RuEnding(a))
end.
PascalABC.NET
begin
var (s, n) := ReadInteger2('Введите S и N:');
var r := 0;
for var m10 := 0 to S div 10 do
begin
for var m5 := 0 to (S - 10 * m10) div 5 do
begin
if m10 + m5 > N then
break;
for var m2 := 0 to (S - 10 * m10 - 5 * m5) div 2 do
begin
if m10 + m5 + m2 > N then
break;
for var m1 := 0 to S - 10 * m10 - 5 * m5 - 2 * m2 do
begin
if m10 + m5 + m2 + m1 > N then
break;
if (m10 * 10 + m5 * 5 + m2 *2 + m1 = s) and
(m10 + m5 + m2+ m1 = N) then
begin
$'{m10} x 10 + {m5} x 5 + {m2} x 2 + {m1} x 1'.Println;
Inc(r)
end
end
end
end
end;
if r > 0 then
Println('Найдено вариантов размена:', r)
else
Println('Вариантов такого размена нет')
end.
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<body>
<title>Практическая работа 2. Фамилия Имя Отчество</title>
<h1>Домашние животные</h1>
<h2><center>Собаки</center></h2>
<p>Сторожевые</p>
<p align="right">Охотничьи</p>
<p align="center">Дрессировка</p>
<center>
<p><font size=14 color="red">Клубы Выставки Площадки</font></p>
<p><font color="blue">Стихотворение</font></p>
</center>
<font size=10>
<p>По жизни я скромен</p>
<p>Оваций не надо!</p>
<p>Но как же я классно</p>
<p>Смотрюсь у снаряда</p>
</font>
</body>
</html>
Первая программа
var x:integer;
begin
readln(x);
case x of
2: writeln('Неудовлетворительно');
3: writeln('Удовлетворительно');
4: writeln('Хорошо');
5: writeln('Отлично');
end;
end.
Вторая программа
var x:integer;
begin
readln(x);
if not x in [1..99] then
writeln('[ERROR]');
case x of
10..20,30,40:write(x,' копеек');
else
case x mod 10 of
1:write(x,' копейка');
2..4:write(x,' копейки');
else write(x,' копеек');
end;
end;
end.