Создайте программный код, который потребует ввести любые два числа a b и рассчитать: выражение (a + b)/b; (создать в паскале). Перед выводом результатов экран очищается, и реализуется пауза, чтобы были видны результаты. Цвет текста результатов черный, фон белый. Результаты выводятся в формате (результат: 8: 3). Возможный результат работы программы.

C++:

#include <bits/stdc++.h>

using namespace std;

int main() {

 long long a, b; cin >> a >> b;

 system("cls && color ")           < код цвета

 cout << (a + b) / b;

}

PASCAL:

var a, b, c: integer;

begin

 readln(a);

 readln(b);

 c:=(a+b)/b;

 ClrScr;

 textbackground(...);       < где троеточие вставляй код цвета

 textcolor(...);

 writeln(c);

end.

Объяснение:

Коды цветов в паскаль:

0   Black,         черный.   8   DarkGray,          темно-серый.          

1   Blue,           синий.   9   LightBlue,          ярко-синий.          

2   Green,        зеленый.  10   LightGreen,       ярко-зеленый.        

3   Cyan,         голубой.  11   LightCyan,        ярко-голубой.        

4   Red,          красный.  12   LightRed,         ярко-красный.        

5   Magenta,   фиолетовый.  13   LightMagenta,  ярко-фиолетовый.    

6   Brown,     коричневый.  14   Yellow,                 желтый.              

7   LightGray, ярко-серый.  15   White,                   белый

Важно для работы ClrScreen надо подключить модуль Crtl через use

1. var a,i,x,k,y,z,b,c: integer; begin writeln ('введи число'); readln (a); for i: =2 to a do if a mod i =0 then k: =k+1; if k=1 then writeln ('число простое') else writeln ('число составное'); readln; end. 2.var a,i,k,x: integer; begin for i: =100 to 999 do if i mod 3=0 then begin a: =i mod 10 + i div 10 mod 10 + i div 100 mod 10; k: =i div 3; while k> 0 do begin x: =k mod 10 + x; k: =k div 10; end; if a> x then write (i,' '); a: =0; x: =0; end; readln; end.