===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
Ну,например,Есенин.
program Chetverostishie;
begin
writeln('И ничто души не потревожит,');
writeln('И ничто ее не бросит в дрожь, —');
writeln('Кто любил, уж тот любить не может,');
writeln('Кто сгорел, того не подожжешь.');
writeln('С.А.Есенин');
end.<span>
</span>
В основе кодирования звука<span> с использованием ПК лежит процесс преобразования колебаний воздуха в колебания </span>электрического тока<span> и последующая </span>дискретизация аналогового электрического сигнала<span>.</span>
Var a,b, d:integer;
begin
read (d);
a:=d div 100;
b:=d div 10 mod 10;
if a>b then Write ('перша більша') else Write ('друга більша')
end.
Ответ:
x = int(input())
while x != 0:
c = int(input())
if c <= 3:
x -= 2
print(c,'взято')
print(x,'осталось')
x -= c
Объяснение:
просто скопируй(я хз, сработает или нет)