Покрасить каждую чётную строку - Pascal ABC

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

Надо покрасить каждую чётную строку

Program tm;
uses crt;
var c:integer;
    i:integer;
    f:real;
Begin
 i:=0;
 for c:=0 to 100 do
 begin
  f:=9/5*c+32;
  i:=abs(c);
  write (' c=',c:2);
  write (' f=',f:4:2);
   begin
    if (odd(i)=true) then textcolor(4);
    writeln;
   end;
 end;
End.

Решение задачи: «Покрасить каждую чётную строку»

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

uses crt;
var c:integer;
    f:real;
Begin
for c:=0 to 100 do
 begin
  f:=9/5*c+32;
  if odd(c) then textcolor(4) else textcolor(9);
  writeln (' c=',c:2,'  f=',f:4:2);
 end;
End.

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

В этом коде используется язык программирования Pascal ABC.

Строка с объявлением переменных: uses crt; var c:integer; f:real; Здесь мы объявляем две переменные: c (целочисленную) и f (вещественную).
Цикл от 0 до 100: for c:=0 to 100 do begin f:=9/5*c+32; if odd(c) then textcolor(4) else textcolor(9); writeln (' c=',c:2,' f=',f:4:2); end; Этот цикл выполняет следующие действия:
- Вычисляет значение f по формуле f = 9/5*c + 32.
- Проверяет, является ли значение переменной c нечетным числом.
- Если c нечетное, то устанавливает цвет текста на 4 (синий).
- Если c четное, то устанавливает цвет текста на 9 (красный).
- Выводит значения c и f на экран, при этом значение c выводится в формате двузначного числа, а значение f - в формате четырехзначного числа с двумя знаками после запятой. Таким образом, в результате выполнения этого кода на экран будет выведено 101 строка, каждая чётная строка будет выделена красным цветом, а каждая нечётная - синим.