var
a: integer;
begin
writeln('Введите целое число');
readln(a);
if a mod 2 = 1 then writeln('Число нечетное')
else writeln('Число четное');
end.
1) ветвление
2) про него можно сказать, что оно истинно или ложно.
3) целый - если известно что переменная принимает только целые числа, вещественный - во всех иных случаях, особенно если есть деление в процессе выполнения программы.
Анекдот в тему: "Разговаривают два программиста:
1) Информатики реально умные люди.
2) ???
1) Только мы можем ответить на вопрос в котором уже заложен ответ.
2) В смесле?
1) Сколько будет 2+2=4?
2) True!!!" (с)Народный анекдот. Прочитал где-то, воспроизвел по памяти.
<span><u>Задача а)</u>
</span>// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
a,b:real;
procedure WriteAvg;
begin
Writeln('Среднее= ',(a+b)/2)
end;
begin
Write('a,b='); Read(a,b);
WriteAvg
end.
<u>Тестовое решение:</u>
a,b=6 4.9
Среднее= 5.45
<u>Задача б)</u>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var c:=ReadlnChar('Введите символ:');
if c in ['A'..'z','А'..'я','Ё','ё'] then Writeln('буква')
else
if c in ['0'..'9'] then Writeln('цифра')
else Writeln('спецзнак')
end.
<u>Тестовое решение:</u>
Введите символ: i
буква
384
Каждое число умножается на два и прибавляется слагаемое, увеличивающееся вдвое
2х2+4=8
8х2+8=24
24х2+16=64
64х2+32=160
160х2+64=384
5-тиичная система исчисления, тк 33+124+131=343
берем последнии цифры 3+4+1=13 , в этой системе исчисления 1+4 это переход в следующий разряд. 3 записываем, а 1 запоминаем. Следующие цифры 3+2+3 и +1(которую запомнили)=14. Итд