Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Всего 3 задачи!Решите а?Я же знаю вы это можете ;)
1)Даны две точки определи какая из них ближе к началу координатной прямой
2)Даны два числа,если числа НЕ равны заменить их большим,а если равны то заменить их нулем
3)Написать программу которая по возрасту определяет род деятельности:дошкольник,ученик,рабочий,пенсионер


Помогите мне пожалуй100
1 | Автор: HELP | 2012-05-10, 13:56   |  Репутация: [ + 0 ]
Quote (HELP)
Даны два числа,если числа НЕ равны заменить их большим,а если равны то заменить их нулем


var
a,b:integer;
begin
readln(a,b);
if a=b then begin a:=0;b:=0;writeln(a,' ',b); end else begin
if a>b then begin b:=a;writeln(a,' ',b);end else
if a<b then begin a:=b;writeln(a,' ',b);end;
end.

Quote (HELP)
3)Написать программу которая по возрасту определяет род деятельности:дошкольник,ученик,рабочий,пенсионер

Пример ввода-вывода


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-10, 16:12   |  Репутация: [ + 211 ]
Мне пишет пропущена точка с запятой
Ховтя ввел все точно и правильно,раз 20 проверял!!!

Добавлено (11.05.12, 13:03)
---------------------------------------------
var
a,b:integer;
begin
readln(a,b);
if a=b then begin a:=0;
b:=0;
writeln(a,' ',b);
end
else
begin
if a>b then begin b:=a;
writeln(a,' ',b);
end
else
if a<b then begin a:=b;
writeln(a,' ',b);
end
end;
end.
Вот так она у меня заработала!


Помогите мне пожалуй100
3 | Автор: HELP | 2012-05-11, 13:03   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: