Задание 3. В системе программирования Pascal ABC co- ставьте программы для создания изображений (рис. 3.3). Вариант а) ​

Var  
   day,                      //номер дня 
   day_dist,              //дистанция пройденная в этот день в метрах 
   sum_dist :integer;//дистанция пройденная за все дни 
Begin 
   day_dist:=3000;   //за первый день пробежал 3000 м. 
   sum_dist:=3000;  //общая дистанция тоже 3000 м. 

//Найти ответ можно тремя
//Вариант 1. цикл for
{
   for day:=2 to 15 do begin      //считаем со 2 по 15 день   
      day_dist:= day_dist + 200;//дневная дистанция увеличивается на 200 м. 
      sum_dist:= sum_dist + day_dist;//общая дистанция увеличивается на 
                                                            дистанцию пройденную за день 
   end; 
} 

//Вариант 2. цикл while  
{ 
   day:=1;                                              //первый день посчитан 
   while day < 15 do begin                  //пока не настал 15 день считаем   
      day := day +1;                                //увеличиваем номер дня   
      day_dist:= day_dist + 200;           //увеличиваем дневную дистанцию   
      sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию 
   end; 
} 
//Вариант 3. цикл repeat until  
{ 
   day:=1;                                               //первый день посчитан 
   repeat                                              //начинаем считать следующие   
      day := day +1;                                //увеличиваем номер дня   
      day_dist:= day_dist + 200;          //увеличиваем дневную дистанцию   
      sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию 
   until day = 15;                                   //если настал 15 день перестаем считать 
} 
   writeln('В 15 день пройдено ', day_dist,'метров.');  //вывод результатов
   writeln('За 15 дней пройдено ', sum_dist,'метров.');
end.

Паскаль
Var   a,b,h: double;
Begin 
   write('Введите a: ');  read(a);   
   write('Введите b: ');  read(b); 
   write('Введите h: ');  read(h); 
   writeln(''); 
   writeln('|    x    |                F(x)                       |'); 
   writeln('|||'); 
   while a <= b do begin   
       writeln('|',a:5,'|', a-abs(cos(a)):20,'|');   
       a:= a + h;   
   end; 
   write('|||');
end.
С#
class Program   
{       
   static void Main(string[] args)       
   {           
      Console.Write("Введите a: ");           
      double a = Convert.ToDouble(Console.ReadLine());           
      Console.Write("Введите b: ");           
      double b = Convert.ToDouble(Console.ReadLine());           
      Console.Write("Введите h: ");           
      double h = Convert.ToDouble(Console.ReadLine());           
      Console.WriteLine(" ");           
      Console.WriteLine("|    x     |             F(x)            |");
      Console.WriteLine("|||");           
      while (a <= b)           
      {               
          Console.WriteLine("|{0,5}|{1,15:0.000000000|}", a, a-Math.Abs(Math.Cos(a)));
          a += h;           
      }           
      Console.WriteLine("|||");           
      Console.ReadLine();       
      }   
}
C/C++
#include "stdafx.h"
#include "locale.h"
#include "stdlib.h"
#include <math.h>
#include <iostream>
using namespace std;
int main()
{
   double a=0,b=0,h=0;
   setlocale(0,"russian");
   printf("Введите a: ");   
   cin >> a;   
   printf("Введите b: ");   
   cin >> b;   
   printf("Введите h: ");   
   cin >> h;   
   printf(" \n");   
   printf("|    x    |          F(x)                |\n");   
   printf("|||\n");   
   while (a <= b)   
   {
       printf("|%5.2f|%14.9f|\n", a, a-abs(cos(a)));
       a += h;
   }
   printf("|||\n");
   system("pause");
}