1)
Program Имя программы;
Uses Подключаемые библиотеки (модули);
Label Список меток основной программы;
Const<span> Введение констант;</span>
Type Описание новых типов;
Var<span> Описание переменных и их типов;</span>
<span>Определение </span><span>процедур;</span>
<span>Определение </span><span>функций;</span>
Begin
Тело основной программы;
End.
2)x_y ; progl
3)
integer целая
char один символ
boolean логическая
real вещественная
string символьная строка
4)
5+y:=x;
a:=7,5;
b:=2*(a;
5)
4
0
не верное выражение(выдаст ошибку)
1
5)
var a,b,p:real;
begin
Write('Введите a >>> ');
Read(a);
Write('Введите b >>> ');
Read(b);
p:=a+b+Sqrt(a*a+b*b);
Writeln('===================');
Write('Периметр >>> ',p);
end.
Обозначения:
A = (x&A≠0)
B= (x&14≠0)
C= (x&75≠0)
----------------------------
1) A→(¬B→C) =1
¬A+(B+C)=1
A=B+C
2) 14 (10cc)=1110 (2cc)
75= (10cc)=100 1011 (2cc)
3) 100 1011 (+ поразрядное логическое сложение)
000 1110
------------
100 1111 = 79 (10cc) ответ 79
Транслятор,источник,станция, передатчик, что-нибудь из этого.
Var
n : Integer;
f : Boolean;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
f:=False;
While (n>0) do
Begin
f:=f or ((n mod 10)=3);
n:=n div 10;
end;
if f then writeln('Тройка есть') else writeln('Троек нет');
End.
<span>Ученик является элементом множества Класс
Водород входит в состав воды. Но ученик тоже входит в состав класса, поэтому в каком-то смысле понятия "Элемент множества" и "Входит в состав" равнозначны.
Среда предшествует четвергу.</span>