Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.
ГОТОВЫЕ РАБОТЫ
ПОХОЖИЕ ВОПРОСЫ
Сегодня примерно в 20:29 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.
Помогите с паскалем
1. написать алгоритм нахождения максимального среди 4 целых чисел.
2. написать алгоритм проверки: имеются ли среди трех целых чисел два положительных значения.
3. написать алгоритм проверки: лежит ли точка с координатами х;у в первой координатной четверти?
Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:
Помогите с паскалем
1. написать алгоритм нахождения максимального среди 4 целых чисел.
2. написать алгоритм проверки: имеются ли среди трех целых чисел два положительных значения.
3. написать алгоритм проверки: лежит ли точка с координатами х;у в первой координатной четверти?
И сразу же ответим на него:
После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
Var a,b,c: integer;
begin
for a : = 1 to 4 do
begin
readln ( b) ;
if b > c then c:=b;
end;
end.
var a, b, c: integer;
begin
for b:=1 to 3 do
begin
readln ( a );
if a > 0 then c:= c+1;
end;
if c =2 then write ('est');
end.
var x,y:integer;
begin
readln(x,y);
If (x>0) and (y>0) then writeln('est');
end.
Все писал с телефона