Попробуйте подсчитать, какое количество компьютеров будет заражено почтовым вирусом после его четвертой саморассылки, если в адресных книгах всех пользователей содержится по 10 адресов электронной почты.

Polk1512 Polk1512    3   01.06.2019 23:50    15

Ответы
linanstyoxvdtf linanstyoxvdtf  02.07.2020 22:24

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию


begin

   var zarazheno := 1;

   var sum := zarazheno;

   for var i := 1 to 4 do

   begin

       zarazheno *= 10;

       sum += zarazheno;

       WritelnFormat('{2} Новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);

   end;

end.


Вывод

1 Новозараженно = 10, всего заражено = 11

2 Новозараженно = 100, всего заражено = 111

3 Новозараженно = 1000, всего заражено = 1111

4 Новозараженно = 10000, всего заражено = 11111

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика