/<u>/ PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.
<u>Примеры</u>
Введите число: 121.121
True
Введите число: 12.11999
False
Программа на скрине! Надеюсь помог!
У нас новое сельское хозяйство открыли!
Сегодня на уроке писали словарный диктант!
В журнале две картинки царь,град.
У французов полком водет Наполеон Бонапарт!
8 00-8 45
8 50-9 35
9 40-10 25
10 30- 11 15
11 20-12 05
1.
var a:integer;
begin
write('Введите число: ');
readln(a);
if a>0 then a:=a-10 else a:=a+10;
writeln('a = ',a);
end.
Пример:
Введите число: 5
a = -5
2.
var a,b,p:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a*b<0 then p:=-2*a*b else p:=3*a*b;
writeln('p = ',p);
end.
Пример:
Введите два числа:
-3 -8
p = 72
3.
var a,b,r:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a>b then r:=a-b else r:=b-a;
writeln('r = ',r);
end.
Пример:
Введите два числа:
25 48
r = 23
4.
var r:integer;
begin
writeln('Введите рост: ');
readln(r);
if r>180
then writeln('высокий')
else if r=180 then writeln('нормальный') else writeln('низкий');
end.
Пример:
Введите рост:
160
низкий