Var
A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=A div 100;
A:=A mod 10;
if B>A then WriteLn('Количество сотен больше')
else if B<A then WriteLn('Количество единиц больше')
else WriteLn('Количества сотен и единиц равны')
End.
Program n_5;
var
a: integer;
procedure Error;
begin
write('ERROR');
exit;
end;
begin
write('Введите номер месяца - ');
readln(a);
if (a <= 0) or (a > 12) then
Error
else
if (a = 12) or (a = 1) or (a = 2) then
write('Зима')
else
if (a = 3) or (a = 4) or (a = 5) then
write('Весна')
else
if (a = 6) or (a = 7) or (a = 8) then
write('Лето')
else
if (a = 9) or (a = 10) or (a = 11) then
write('Осень');
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure СредняяЦифра(Число: int64; var Цифра: integer);
begin
var СтроковоеПредставление := Число.ToString;
var ЧислоРазрядов := СтроковоеПредставление.Length;
var ПозицияЦифры := ЧислоРазрядов div 2 + 1;
Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit
end;
begin
var ЗаданноеЧисло: int64;
Read(ЗаданноеЧисло);
var ИскомаяЦифра: integer;
СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);
ИскомаяЦифра.Println
end.
<h2>Пример</h2><h2>123643523</h2><h2>4 </h2>
27.Чашки: чашка "а", чашка "b", чашка "с"
Чайник
начало
взять чашку
Янту не сказали, какую из чашек взять, поэтому он "завис".
28.Брюндик существо жёлтого цвета;большой живот;много ест.
Хрюндик существо розового цвета;хобот;обливается водой.
Крюндик существо зелёного цвета;хвостик;махать хвостиком.
1.
sec = int(input())
min = sec // 60
sec = sec - min*60
print(min," мин ",sec," сек.")
2.
x = int(input())
a = x //1000
b = x//100 - a*10
c = x//10 - a*100 - b*10
d = x - a*1000 - b*100 - c*10
print("сумма:"a+b+c+d)
print("произведение:"a*b*c*d)
3.
x = int(input())
b = x//100
c = x//10 - b*10
d = x - b*100 - c*10
y = d*100 + c*10 + b