Замена строчки,2 секунды,информатика 11 класс) - Pascal ABC

Формулировка задачи:

Как можно заменить строчку if (k mod 2 = 1) then для убирания 2х if?

uses crt;
var a,l:real;
m,k:integer;
begin
writeln('a');
readln(a);
k:=1; l:=0;
while k<=a do
begin 
if (k mod 2 = 0) then 
  begin
  if cos(k)>l then
    begin
    l:=cos(k);
    m:=k;
    end;
  end;
if (k mod 2  = 1) then
  begin
  if sin(k)>l then
     begin
     l:=sin(k);
     m:=k;
     end;
  end;
k:=k+1;
end;
writeln('l=',l);
writeln('m=',m);
end.

Решение задачи: «Замена строчки,2 секунды,информатика 11 класс)»

Листинг программы

if (k mod 2 = 0)and(cos(k)>l) then
  begin
   l:=cos(k);
   m:=k;
  end
else if (k mod 2  = 1)and(sin(k)>l) then
  begin
   l:=sin(k);
   m:=k;
  end;

Объяснение кода листинга программы

В данном коде происходит проверка условия для замены строчки.

Сначала проверяется, что k делится на 2 без остатка и cos(k) больше l. Если это условие выполняется, то выполняются следующие действия:
- l присваивается значение cos(k);
- m присваивается значение k;
- Затем выполняется следующая проверка.
Если первое условие не выполняется, но k делится на 2 без остатка и sin(k) больше l, то выполняются следующие действия:
- l присваивается значение sin(k);
- m присваивается значение k; В данном коде нет вложенных списков.