Всего 3 задачи!Решите а?Я же знаю вы это можете ;)
1)Даны две точки определи какая из них ближе к началу координатной прямой 2)Даны два числа,если числа НЕ равны заменить их большим,а если равны то заменить их нулем 3)Написать программу которая по возрасту определяет род деятельности:дошкольник,ученик,рабочий,пенсионер Помогите мне пожалуй100
Даны два числа,если числа НЕ равны заменить их большим,а если равны то заменить их нулем
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
Мне пишет пропущена точка с запятой Ховтя ввел все точно и правильно,раз 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. Вот так она у меня заработала!
