Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.02.2017 17:33
- Информатика
- remove_red_eye 8678
- thumb_up 25
Ответы и объяснения 1
program perviynomer;
var
a,b:integer;
begin
write ('Введите 1-ое число: ');
ReadLn(a);
write ('Введите 2-ое число: ');
ReadLn(b);
if a>b then
writeln('Задача решена ',a+b)
else
writeln('Задача решена ',a*b);
readln;
end.
2)
program vtoraya;
var
a:integer;
begin
write('Введите число: ');
ReadLn(a);
if (a>=-5) and (a<=3) then writeln('Число ', a,' лежит в данном промежутке') else
WriteLn('Число ', a,' не лежит в данном промежутке');
readln;
end.
3)
program tretya;
Var
X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if X>0 then
if Y>0 then Write('Первая четверть')
else Write('Вторая четверть')
else
if Y<0 then Write('Третья четверть')
else Write('Четвёртая четверть')
End.
5)
program chetvertaya;
uses crt;
var
a,b,c:real;
begin
Write('Введите 1-ое число: ');
readln(a);
write('Введите 2-ое число: ');
readln(b);
Write('Введите 3-ие число: ');
readln(c);
if a > b then
if b > c then writeln('Сумма наибольших: ',a+b)
else writeln('Сумма наибольших: ',a+c)
else if a > c then writeln('Сумма наибольших: ',a+b)
else writeln('Сумма наибольших: ',b+c);
readln;
end.
- 17.02.2017 06:06
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.