Uses crt;var a,i:byte;
s:real;
begin
clrscr;
for i:=1 to 4 do
begin
writeln('vvod');
readln(a);
if a mod 5=0 then writeln('Число ',a,' кратно 5 ')
else writeln('Число ',a,' не кратно 5')
end;
end.

0 0

4 года назад

Сдав доклад по информатике на «отлично», ученик перенёс папку, полный путь до которой был С:\Учёба\Информатика\Состав_ПК, в папк

Slastena63 [7]

D:\Архив\Состав_ПК\Основные устройства_ПК.doc

0 0

1 год назад

Что такое универсальный объект компьютера

Настя 20000 [3]

Обьект, природный для многих целей, выполняющий разнообразные функции, называют универсальным.

0 0

4 года назад

Напишите фрагмент кода заполнения массива А по предлагаемому правилу (массив объявлен как a:harry [-3..3]of integer):значение эл

ОльгаКабышева

//1

for i := -3 to 3 do

Read(a[i]);

//2

Randomize;

for i := -3 to 3 do

a[i] := Random(101) - 50;

//3

for i := -3 to 3 do

a[i] := 5 * i;

//4

Randomize;

for i := -3 to 3 do

a[i] := Random(41) + 150

0 0

1 год назад

Дана матрица А(п, п). Составить блок-схему нахождения суммы элементов, принадлежа­щих вспомогательной диагонали матрицы.

Дана матрица А(п, п). Составить блок-схему нахождения суммы элементов, принадлежащих вспомогательной диагонали матрицы.