yasenchuk02ozo83d
05.12.2020 22:59

Задания 1. Рассмотрите алгоритм и заполните таблицу трассировки. (3)

FOR i←3 TO 10 DO s i

IF i MOD 2=0 THEN

4 4

s←s+i

PRINT s, i

ENDIF

ENDFOR

2. Рассмотрите алгоритм и заполните таблицу трассировки. (3)

WHILE i<5 DO i k

1 1

i←i+1

k←k*i

PRINT

k,i

ENDWHILE

3. Рассмотрите блок-схему и заполните трассировочную таблицу. (3)

sum m k

0 10 0

Сделайте , дать


Задания 1. Рассмотрите алгоритм и заполните таблицу трассировки. (3)FOR i←3 TO 10 DO s iIF i MOD 2=0

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
lili2003love12
16.03.2021 04:29
Идею электронных таблиц впервые сформулировал американский учёный австрийского происхождения Рихард Маттезих (нем. Richard Mattesich), опубликовав в 1961 г. исследование под названием «Budgeting Models and System Simulation»[3]. Концепцию дополнили в 1970 г. Пардо (англ. Rene Pardo) и Ландау (англ. Remy Landau), подавшие заявку на соответствующий патент (U.S. Patent 4 398 249). Патентное ведомство отклонило заявку, но авторы через суд добились отмены этого решения.

Общепризнанным родоначальником электронных таблиц как отдельного класса ПО является Дэн Бриклин, который совместно с Бобом Фрэнкстоном разработал программу VisiCalc в 1979 г. Эта электронная таблица для компьютера Apple II стала очень популярной, превратив персональный компьютер из игрушки для технофилов в массовый инструмент для бизнеса.

Впоследствии на рынке появились многочисленные продукты этого класса — SuperCalc, Microsoft MultiPlan, Quattro Pro, Lotus 1-2-3, Microsoft Excel, OpenOffice.org Calc, таблицы AppleWorks и gnumeric, минималистический Spread32.
0,0(0 оценок)
Ответ:
nvanislavskaya
03.09.2022 12:40
При условии что каждый больной заражает от 1 до 5 человек каждый день, и что больные упорно ходят в школу

const
    min_posible = 1;
    max_posible = 5;
var all_students, ill, new_ill, days, i: integer;
Begin
    Randomize;
    Writeln('Кол-во учеников школы =>');
    read(all_students);
    ill := 1;
    repeat
        days := days + 1;
        new_ill := 0;
        for i := 1 to ill do
            new_ill := new_ill + Random(min_posible, max_posible);
        ill := ill + new_ill;
        Writeln('День ',days:3,': Заразилось ',new_ill:5,' Больных ',ill:5);
    until ill >= all_students;

    Writeln(days);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота