Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
d1,d2,d3,d4: string;
begin
randomize;
readln(d1);
readln(d2);
readln(d3);
readln(d4);
case random(4) of
0: writeln(d1,d2,d3);
1: writeln(d1,d2,d4);
2: writeln(d2,d3,d4);
3: writeln(d1,d3,d4);
end;
end.
program fasf;
n,q: integer;
write('введите этаж: ');
readln(n);
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
фомат gif
в начале идет табличка соответствия цветов под номерами
потом каждый пиксель помечается номером цвета.
Популярные вопросы