Var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое = ',(a+b+c)/3);
end.
Пример:
a = 4
b = 2
c = 9
Среднее арифметическое = 5
Var r,s:real;begin writeln('r=?, r>20 '); readln(r); s:=3.14159265359*(r*r-400.0); writeln('s=', s);end.
--------------
Но проверку r>20 не делал, просто попросил словами.
11111110
16ричная и 8ричная системы счисления удобны для перевода в двоичную, т.к. в них каждую цифру можно заменить на определенную последовательность из 1 и 0
в 8ричной группы по 3 знака, в 16ричной по 4. собственно таблица
0 - 0000
1 - 0001
2 - 0010
3 - 0011
4 - 0100
5 - 0101
6 - 0110
7 - 0111
8 - 1000
9 - 1001
A - 1010
B - 1011
C - 1100
D - 1101
E - 1110
F - 1111
таким образом
FE
F E
1111 1110
программа для паскаля
uses crt;
var a,b,s:real;
begin
clrscr;
write ('a='); read (a);
write ('b='); read (b);
s:=a+b;
if s>100 then writeln (s/2)
else writeln (2*s);
end.
У Оли - белая шапка (по условию), тогда шапки остаются синие и фиолетовые.
У Ксюши ничего фиолетового, тогда фиолетовая шапка у Насти и т.к.по условию у нее того же цвета костюм, то на Насте - фиолетовый.
Синяя шапка остается для Ксюши.
Остаются синий и белый костюмы.
У Оли костюм не белый, значит белый костюм у Ксюши, и остается синий у Оли.