1. Выберите величины, которые могут изменяться при выполнении Дружелюбным Роботом алгоритма «Поздоровайся с одноклассниками». * a)Количество парт в классе б)Имя одноклассника в)Координаты одноклассника г)Слова приветствия д)Цвет стен в классе и)Имя робота 2. Определите значение b после выполнения алгоритма: * а:=6 b:=4 a:= a + a*b b:= a/3 3. Логическое выражение 7 a:=8 b:=2 a:= 14 + a*b b:= b + a/3 4. Логическое выражение 100 5. Логическое выражение 7 6. Выберите допустимые имена переменных * a/b 14B A_1 Var# Сумма A 1 С+ "B" A1 Kolichestvo Temp 7. Определите в перечисленных величинах константы * Количество символов в алфавите Количество солнечных дней в году Курс валюты Ускорение свободного падения 8. Определите в перечисленных величинах переменные * Количество осадков за месяц Уровень воды в океане Длина кода восьмеричного числа Количество этажей в доме

1. б, г
2. b:= 10.
3. a:= 30
b:= 4 2/3
6. Kolichestvo
A_1
7.Количество символов в алфавите
Количество солнечных дней в году
8. Количество осадков за месяц
Уровень воды в океане

1)var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите количество часов в первом моменте времени');
readln(a);
writeln('Введите количество минут в первом моменте времени');
readln(b);
writeln('Введите количество секунд в первом моменте времени');
readln(c);
writeln('Введите количество часов во втором моменте времени');
readln(a1);
writeln('Введите количество минут во втором моменте времени');
readln(b1);
writeln('Введите количество секунд во втором моменте времени');
readln(c1);
s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1);
writeln(s,' секунд');
end.
2)var a,b:integer;
s:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a+b) mod 2 =0 then s:=a*b
else s:= a/b;
writeln(s);
end.
3)var b,s,n:real;
begin
writeln('Введите количество часов');
readln(n);
n:=n/3;
s:=2*power(2,(n-1));
writeln(s,' амёб');
end.
4)var a:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do
begin
a[i]:=random(11);
writeln('a[',i,']= ',a[i]);
end;
end.

1)var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите количество часов в первом моменте времени');
readln(a);
writeln('Введите количество минут в первом моменте времени');
readln(b);
writeln('Введите количество секунд в первом моменте времени');
readln(c);
writeln('Введите количество часов во втором моменте времени');
readln(a1);
writeln('Введите количество минут во втором моменте времени');
readln(b1);
writeln('Введите количество секунд во втором моменте времени');
readln(c1);
s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1);
writeln(s,' секунд');
end.
2)var a,b:integer;
s:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a+b) mod 2 =0 then s:=a*b
else s:= a/b;
writeln(s);
end.
3)var b,s,n:real;
begin
writeln('Введите количество часов');
readln(n);
n:=n/3;
s:=2*power(2,(n-1));
writeln(s,' амёб');
end.
4)var a:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do
begin
a[i]:=random(11);
writeln('a[',i,']= ',a[i]);
end;
end.