⦁ Опишите типы данных у следующих переменных (Integer, String, Boolean, Real, Char)
⦁ S:=56
⦁ D:= ‘разница’
⦁ W:= 6/c+9
⦁ Rz:=* ⦁ K:=#
⦁ B:= A>55
⦁ C:= 2.369
⦁ Rez:= ‘лига’
⦁ Перевести из двоичной СС в десятичную число 1110112
⦁ Чему будет равна переменная а после выполнения алгоритма:
а:=8
b:=3
b:=64-a*b
a:=b*a/10
⦁ Что позволяет выполнить оператор Writeln? привести пример части кода с использованием оператора Writeln.
⦁ Исправь ошибки в программе. Наберите в Паскале без ошибок https://www.onlinegdb.com/online_pascal_compiler или перепишите в тетрадь без ошибок
Камилла и Эльдар = не информатика
Тимур = боится физики
Камилла, Тимур = не литература, но плавают
Тимур и Камилла = поздравили математика
Ирена = cожалеет мало времени на литературу
победители по: физике, математике, информатике, литературе и географии.
Залим - информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются)
Тимур - не физика, не литература, не математика, не информатика,
значит география
Камилла - не информатика, не литература, не математика, уже не география => Физика
Ирена - не информатика, не физика, не география => Литература
Эльдар - Математика
const
pi=3.14;
var
N:integer;
Z:real;
R,D,L,S:real;
begin
Writeln('Введите номер элемента N=');
readln(N);
Writeln('Введите значение элемента Z=');
readln(Z);
case N of
1:begin
R:=Z;
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
2:begin
R:=Z/2;
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
3:begin
R:=Z/(2*pi);
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
4:begin
R:=sqrt(Z/pi);
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
else Writeln('ошибка');
end;
end.