<h2>Задание 1</h2>
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if x mod 2 = 0 then
- Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
- end.
<h2>Задание 2</h2>
Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if ((x > 9) or (x < -9)) then
- Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
- end.
1. PascalABC.NET
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите число:');
Writeln((x>=0) and (x<=2)?'Да':'Нет')
end.
<u>Пример</u>
Введите число: 1.17
Да
2. На этой же версии в стиле традиционного школьного паскаля
var
x:real;
begin
Write('Введите число: '); Read(x);
if (x>=0) and (x<=2) then Writeln('Да')
else Writeln('Нет')
end.
В номерах не понятно где робот изначально находиться!
в 1 номере я поставил нач.точку робота в самый первый закрашенный правый квадрат, во 2 номере в самый низ,в квадрат где заканчивается палка)
1 номер:
использовать Робот
алг
нач
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока справа не свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока справа не свободно
закрасить
вниз
кц
кон
2 номер:
использовать Робот
алг
нач
нц пока сверху свободно
вверх
закрасить
кц
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока сверху не свободно
закрасить
вправо
кц
вверх
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
кон
остальное сам делай,мне лень)
Сначала посчитаем количество операций = 1 000 000 * 3600= 3 600 000 000 операций
теперь посчитаем быстродействие арифмометра = 1/10=0,1 операция в секунду
теперь посчитаем нужное время = 3 600 000 000 / 0,1= 36 000 000 000 секунд или около 1141,5 лет.
var
a: <em>integer</em>;
begin
readln(a);
writeln(a mod 10, a div 10 mod 10, a div 100);
<span>end.</span>