1. Процессор
2.
3. Оперативная
4. Кэш
5. Внешняя
6. Шина

У вас на фото ничего не видно, вот пару ответов, попытайтесь сделать более чёткую фотографию.

0 0

4 года назад

Дан массив из 20 элементов целого типа ,найти произведение нечетных кратных 3 элементов массива.

УльянаИ

Var

a: array[1..20] of integer;

i,x: integer;

Begin

x := 1;

write('Введите 20 чисел для заполнения массива: ');

for i := 1 to 20 do begin

readln(a[i]);

end;

for i := 1 to 20 do begin

if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then

x := x * a[i];

end;

writeln('Произведение чисел нечетных и кратных 3 = ', x);

End.

0 0

1 год назад

Составить программу для того что бы выводить 5 символов подрядПОЖАЛУЙСТА очень надо

osbusratel

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
1.To(5).Println(',')
end.

Результат
1,2,3,4,5

0 0

4 года назад