Var
A:array[1..10] of integer;
k:integer:=0;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(10,99);
Write(A[i],' ');
if (i mod 2 = 0)and(A[i] mod 2 = 0) then k+=1;
End;
WriteLn;
WriteLn('Количество четных элементов с четными индексами: ',k);
End.
Var
A:array[1..10] of integer;
P:real:=1;
Begin
For var i:= 1 to 10 do
Begin
A[i]:=random(10,99);
Write(A[i],' ');
if A[i] mod 5 = 0 then P*=A[i];
End;
WriteLn;
WriteLn('Произведение элементов, кратных 5: ',P);
End.
1 клумба=76
2 клумба=44
3 клумба=16
4 клумба=46
76+44+16+46=182 (м)- провода нуж но.
Ответ:182
Var
N:integer;
Begin
WriteLn('Введите номер дня недели');
Read(N);
Case N of
1:
Begin
WriteLn('Чтение');
WriteLn('Труд');
WriteLn('Музыка');
WriteLn('Физ-ра');
End;
2:
Begin
WriteLn('Изо');
WriteLn('Русский');
WriteLn('Математика');
WriteLn('Окружающий мир');
End;
3:
Begin
WriteLn('Геометрия');
WriteLn('Краеведенье');
WriteLn('География');
WriteLn('МХК');
End;
4:
Begin
WriteLn('ОБЖ');
WriteLn('Информатика и ИКТ');
WriteLn('Физика');
WriteLn('Химия');
End;
5:
Begin
WriteLn('Биология');
WriteLn('История');
WriteLn('Обществознание');
WriteLn('Алгебра');
End;
6:
Begin
WriteLn('----------');
WriteLn('Литература');
WriteLn('Черчение');
End;
7:
Begin
WriteLn('Воскресенье!!!');
End;
End;
End.
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.
1) <span>D:\Материалы к урокам\10 класс\Лекции\Введение
2) </span>make.cpp, name.c, age.pc, name.cpp >>> *a?e.*
