Склавиатуры вводятся два числа. составить программу сравнивающую эти числа и в зависимости от результата сравнения выводящую на экран нужный знак.например: 3< 5 или 3=3 или 3> 2. процедуру write для вывода результата разрешается использовать только один раз.

Var a,b: integer; c: char; begin readln (a,b); if a> b then c: ='> '; if a=b then c: ='='; if a< b then c: ='< '; writeln(a,c,b); end.

Начнем с того, что исправим текущий код. у вас используется цикл, но он совершенно здесь не нужен. вот программа без цикла. 

#include "stdafx.h"

#include < iostream>

using namespace std;

int main()

{

int d, m, y, i;

int max[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };

setlocale(0, "");

cout < < "введите день(число)";

cin > > d;

cout < < "введите месяц(число)";

cin > > m;

cout < < "введите год(число)";

cin > > y;

if ( (y % 4 == 0 & & y % 100 ! = 0) || y % 400 == 0) //проверка что год високосный

max[1]++;

if( d == max[m-1])

{

d = 1;

m++;

}

else

    d++;

if (m == 13)

{

m = 1;

y++;

}

cout < < d < < " " < < m < < " " < < y;

cin > > d; //ожидание ввода, чтобы посмотреть результаты пработы программы

return 0;

}

эта программа  определяет следующий день от текущего.

а вот программа, которая определяет предыдущий день.

#include "stdafx.h"

#include < iostream>

using namespace std;

int main()

{

int d, m, y, i;

int max[12] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };

setlocale(0, "");

cout < < "введите день(число)";

cin > > d;

cout < < "введите месяц(число)";

cin > > m;

cout < < "введите год(число)";

cin > > y;

if ( (y % 4 == 0 & & y % 100 ! = 0) || y % 400 == 0) //проверка что год високосный

max[1]++;

if( d == 1)

{

if (m == 1)

{

m = 12;

y--;

}

else

m--;

d = max[m - 1];

}

else

    d--;

cout < < d < < " " < < m < < " " < < y;

cin > > d; //ожидание ввода, чтобы посмотреть результаты пработы программы

return 0;

}

Program dot; var   x1,y1,x2,y2: integer;   r: real; begin   writeln('введите координаты первой точки: ');       readln(x1,y1);   writeln('введите координаты второй точки: ');       readln(x2,y2); r: =(sqrt((sqr(x2-x1))+(sqr(y2-;   if r> 0 then       writeln('ваше расстояние = ', r)   else if r=0 then       writeln('расстоняние 0')   else       writeln('расстояние не может быть меньше 0') end.