var x,y:real; i:integer;
Begin
x := 1;
while(x < 50) do Begin
read(y);
x := x * y;
writeln(' Произведение = ', x);
inc(i);
End;
write('Введено ',i,' чисел');
End.
100111 разбиваем на тетрады (по 4 цифры), получаем
0010.0111
считаем по схеме
1 1 1 1
8 4 2 1
0010(2)=2(16)
0111(2)=7(16)
100111(2)=27(16)
Графические примитивы это заранее определенные элементы, которые можно поместить в чертеж при помощи одной команды. Каждый графический примитив формируется на основании геометрического описания объекта.
Примитивы можно классифицировать:
<span>односложные и составные;
плоские и объемные (3d)</span>
Большинство команд обрисовки базовых примитивов собраны в подменю Рисовать. Каждый примитив формируется своей командой, чаще всего совпадают по имени с примитивом. Для некоторых примитив пользователю предлагается несколько способов построения одного и того же примитива по различным исходным данным, например окружность можно построить по центру и радиусу, по центру и диаметру, по трем точкам на плоскости и т.д. Каждый примитив обладает рядом свойств (например, принадлежность слою, цвет, видимость, тип линии и т.д.).
Некоторые команды требуют ввода дополнительных опций в командную строку.
Источник : http://life-prog.ru/view_autocad.php?id=9
Если считать, что больные продолжают ходить в школу, заражая каждый день людей, и при этом они не выздоравливают через 7 дней, то так:
var vsego, boleet,den:integer;
begin
writeln('Сколько всего человек: ');
Readln(vsego);
boleet:=1;
while boleet<vsego do begin
den:=den+1;
boleet:=boleet*4+boleet;
writeln('День ',den, ' - заразились и болеют уже ', boleet, ' человек');
end;
writeln('Всего учеников: ', vsego, ', Через ',den, ' дней заболеют ', boleet, ' учеников (если бы их было столько), но т.к. их столько нет, да и школу бы всё равно на карантин закрыли, то будем считать, что заболеют все ', vsego);
end.