Дана блок-схема Уточните написанную программу по блок-схеме на языке программирования Pascal.
uses crt;
var a, b : integer;
Sa : real;
begin
write(‘a= ‘);
readln(a);
write(‘b= ‘);
readln(b);
Sa := (a-b)/2;
writeln(Sa);
end.

Вот первая задача

Объяснение:

#include <stdio.h>

int main()

{

   int k;

   printf("Введите номер дня\n");

   scanf("%i", &k);

   if((k < 1)||(k > 365))

   {

       printf("День не подходит");

       return 0; // немедленный выход из функции и приложения

   }

   int den = k % 7; //операция остаток от деления. Тут будет номер дня недели от 0 до 6

   den = den + 1 + 2; // 2 - это номер первого дня года, вторника, 1 - это чтобы преобразовать из диапазона 0-6 в диапазон 1-7

   printf("День номер %i был %i днем недели", k, den);

   return 0;

}

const N=5;

var a:array [1..N,1..N] of integer;

i,j,min:integer;

begin

 randomize;

 for i:=1 to N do  

   begin

     for j:=1 to N do

       begin

         a[i,j]:=random(21)-10;

         write(a[i,j]:4);

       end;

     writeln;

   end;

   writeln;

 min:=a[1,1];

 for i:=1 to N do

   for j:=1 to N do

     if a[i,j]<min then

       min:=a[i,j];

 if min<>a[1,1] then a[1,1]:=min;

 for i:=1 to N do

   begin

     for j:=1 to N do

       write(a[i,j]:4);

     writeln;

   end;

end.