В)наверно
кассир и сам справится
а дворник зачем?
Program month;
uses CRT;
var a:integer;
Begin
ClrScr;
write('vsatvte chislo');
read(a);
If (a=12) or (a=1) or (a=2) then write('zima')
else if (a=3) or (a=4) or (a=5) then write ('vesna')
else if (a=6) or (a=7) or (a=8) then write ('leto')
else write('oseni');
repeat until keypressed;
end.
1) Дизайн системы
2) Компании производящие устройства
3) Возможности систем
4) Драйвера (прошивки и т.п.)
5) ПО, которое возможно на него установить.
6) Компании, которые сотрудничают с ними
7) Названия компаний ;)
Также, Андроид - более гибкая система (с ней легче "шаманить")
Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>
Перестановки с повторениями
сообщение содержит 3 или 4 цвета.
Вариантов для 3 цвета 3*3*3 = 27
Для 4 цвета подряд 3*3*3*3 = 81
27+81 = 108