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

//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

1)

const
  n=40;
var
  a:array [1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  Writeln('Исходный массив');
  for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
  Writeln; Writeln('Четные элементы, кратные 3');
  for i:=1 to n do
    if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
  Writeln; Writeln('Отобрано элементов: ',k)
end.

Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6

2)

const
  n=20;
var
  a:array [1..n] of integer;
  i,imin:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  imin:=1;
  for i:=1 to n do begin
    a[i]:=random(351)+20;
    Write(a[i],' ');
    if a[i]<a[imin] then imin:=i
    end;
  Writeln;
  Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.

Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39

ответ:include <iostream>

#include <stdio.h>

#include <cstring>

using namespace std;

int main (){

int length,i,j,kol=0;

char vowel []="AEIOUY";

char text [100];

gets (text); //функция считывает все введённые символы с пробелами до тех пор, пока не будет нажата клавиша Enter

length=strlen (text);

for (j=0; j<=5; j++){

for (i=0; i<=length; i++)

if (text[i]==vowel[j])//сравниваем введённые элементы с заданными значениями строки

kol=kol+1cout << kol << endl return 0;

Объяснение:

Эти значение строки.

A E I O и Y остальные считаются согласными