Давай, присылай картинку или текст, с радостью помогу❤️
Var sum,I,n : integer;
begin
sum : = 0;
for i := 1 to 5 do
begin
readln(n);
if (n mod 10 = 4) and (n mod 2 = 0) then sum := sum + i;
end;
writeln (sum);
end.
Var
N: integer;
Begin
Write('Введите номер урока: ');ReadLn(N);
Case N of
'1':WriteLn('Математика');
'2':WriteLn('Физика');
'3':WriteLn('Химия');
'4':WriteLn('Геометрия');
'5':WriteLn('География');
'6':WriteLn('Краеведенье');
End;
End.
Логические величины - это понятия, выражаемые словами: ИСТИНА, ЛОЖЬ
В памяти компьютера логической величине ставится в соответствие один БИТ (двоичная цифра). Значению ИСТИНА соответствует бит, равный единице, а значению ЛОЖЬ - бит, равный нулю.
Логическая переменная - символически обозначенная логическая величина.
<span>Если известно. что <span>A, B, X, Y </span> и пр. - переменные логические величины, то это значит, что они могут принимать значения только ИСТИНА или ЛОЖЬ.</span>
Программа находит в массиве максимальный среди отрицательных элементов и выводит его.
-5 больше чем -10. Если нужно максимальный по модулю, то требуется поменять условие