В городе с 1 000 000 жителей объявили карантин на 100 дней. Статистика показала, что каждый день обращалось за диагнозом по 3 человека. Один из них был без заражения и должен пройти карантин. Двое были заражены, т.е. больны и проходили лечение. К сожалению, в каждый нечётный день карантина после его десятого дня начала один из лечившихся умирал.
Выведите на печать количество обратившихся за диагнозом, количество вылечившихся и количество умерших людей.
Сделать в PascalABCNet, по аналогии с вот этим кодом:
program coronavirus4;
begin
var
i, a, b, c, d, e: integer;
i := 100;
a := 1000000;
writeln( 'Количество дней ', i);
writeln('Количество жителей ', a);
b := 0;
d := 0;
for i := 1 to 100 do
begin
b := b + 3;
d := d + 1;
end;
Writeln('Количество обратившихся за диагнозом на карантин ', d);
c := b - d;
Writeln('Заболевшие ', c);
e := 0;
for i := 11 to 100 do
begin
if i mod 2 = 0 then
begin
e := e + 0;
end
else
begin
e := e + 1;
end;
end;
Writeln('Количество умерших ', e);
c := c - e;
Writeln('Количество выздоровевших ', c);
end.
ток не точ в точ
123456789012345678901234
begin
var a:=-1.32;
var b:=1.49;
var h:=0.11;
var y1:=-14.0;
var y2:=17.0;
var k:=0;
var x:=a;
while x<=b do begin
var y:=Tan(x);
if (y>=y1) and (y<=y2) then begin
Writeln('x=',x:5:2,' y=',y:7:4);
Inc(k)
end;
x+=h
end;
Writeln('Найдено значений: ',k)
end.
Результат
x=-1.32 y=-3.9033
x=-1.21 y=-2.6503
x=-1.10 y=-1.9648
x=-0.99 y=-1.5237
x=-0.88 y=-1.2097
x=-0.77 y=-0.9697
x=-0.66 y=-0.7761
x=-0.55 y=-0.6131
x=-0.44 y=-0.4708
x=-0.33 y=-0.3425
x=-0.22 y=-0.2236
x=-0.11 y=-0.1104
x= 0.00 y= 0.0000
x= 0.11 y= 0.1104
x= 0.22 y= 0.2236
x= 0.33 y= 0.3425
x= 0.44 y= 0.4708
x= 0.55 y= 0.6131
x= 0.66 y= 0.7761
x= 0.77 y= 0.9697
x= 0.88 y= 1.2097
x= 0.99 y= 1.5237
x= 1.10 y= 1.9648
x= 1.21 y= 2.6503
x= 1.32 y= 3.9033
x= 1.43 y= 7.0555
Найдено значений: 26
Объяснение:
2. При выделении фигуры или объект отображаются маркеры изменения размера.
3. команды при настройке отображения таблицы можно выполнить, ... дополнительные кнопки, с которых можно указать подходящий ... Направление текста слева направо (справа налево) Выбор направления ...
4.?
5. Указанная операция может выполняться двумя с Аlign and Distribute (Выровнять и распределить) меню Аrrange (Расположить). ... выполнении операции перемещения объектов отпустите кнопку МыШИ; ...
текст можно расположить «елочкой», выровнять по обоим краям страницы или ... Следующая кнопка снова вернет все «отмененные» изменения в документ. ... Запомните — все эти операции выполняются с приемов ...