Предмет: Информатика,
автор: КотяПоспелова
Попробуйте подсчитать, какое количество компьютеров будет заражено
почтовым вирусом после его четвертой саморассылки, если в адресных
книгах всех пользователей содержится по 10 адресов электронной почты.
Ответы
Автор ответа:
0
//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
Похожие вопросы
Предмет: Українська мова,
автор: sidashkatia1999
Предмет: Математика,
автор: yuliyasoprynenko
Предмет: Английский язык,
автор: Sfvt
Предмет: Геометрия,
автор: каорч