<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
if Abs(n).Between(100,999) then begin
Writeln('Число трехзначное');
if n.IsOdd then Writeln('Число нечетное')
else Writeln('Число четное');
if n div 100 = n mod 10 then Writeln('Его первая и последняя цифры равны')
else Writeln('Его первая и последняя цифры не равны')
end
else Writeln('Число не трехзначное')
end.
<u>Примеры</u>
n= 452
Число трехзначное
Число четное
Его первая и последняя цифры не равны
n= 313
Число трехзначное
Число нечетное
Его первая и последняя цифры равны
n= 18
Число не трехзначное
Program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.
Астестеройдес такого слова нету! вы наверно имеете ввиду астероид? то это - одна из малых планет, с диаметром 1тыс. км, пояс которых обращается вокруг солнца между орбитами марса и юпитера!
1. <span>(число <75) И НЕ (число чётное)
46: </span>(46<75) И НЕ (46 чётное) ⇒ Истина И Ложь ⇒ Ложь
53: (53<75) И НЕ (53 чётное) ⇒ Истина И Истина ⇒ Истина
80: (80<75) И НЕ (80 чётное) ⇒ Ложь И Ложь ⇒ Ложь
99: (99<75) И НЕ (99 чётное) ⇒ Ложь И Истина ⇒ Ложь
Ответ: <span>2) 53
2. </span><span>НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)
Пимен: </span>НЕ ("П" согласная) ИЛИ НЕ ("н" гласная) ⇒ Ложь ИЛИ Истина ⇒ Истина<span>
Кристина: </span>НЕ ("К" согласная) ИЛИ НЕ ("а" гласная) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
Ирина: </span>НЕ ("И" согласная) ИЛИ НЕ ("а" гласная) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
Александр: </span>НЕ ("А" согласная) ИЛИ НЕ ("р" гласная) ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>2) Кристина
3. </span><span>НЕ (число > 30) ИЛИ (число нечётное)
28: </span>НЕ (28 > 30) ИЛИ (28 нечётное) ⇒ Истина ИЛИ Ложь ⇒ Истина<span>
34: </span>НЕ (34 > 30) ИЛИ (34 нечётное) ⇒ Ложь ИЛИ Ложь ⇒ Ложь<span>
17: </span>НЕ (17 > 30) ИЛИ (17 нечётное) ⇒ Истина ИЛИ Истина ⇒ Истина<span>
45: </span>НЕ (45 > 30) ИЛИ (45 нечётное) ⇒ Ложь ИЛИ Истина ⇒ Истина
Ответ: 2) 34
