Вопрос по информатике:
Помогите пожалуйстаЗадачи на ветвления и выбор.Даны круг и квадрат.Составьте программу,определяющую по ведённым вами значениям длин стороны квадрата и радиус круга,одно из утверждений "круг вписан в квадрат или квадрат вписан в круг"
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.03.2017 09:52
- Информатика
- remove_red_eye 11475
- thumb_up 29
Ответы и объяснения 1
var
n,a,b,c,m:integer;
begin
clrscr;
write('Vvesti 3-x znachnoe chislo ');
readln(n);
c:=n mod 10;
a:=n div 100;
n:=n div 10;
b:=n mod 10;
writeln('cifri chisla ',a:3,b:3,c:3);
write('vvesti cifru ');
readln(m);
if (m=a) or (m=b) or (m=c) then writeln('YES') else writeln('NO');
writeln('end programm ');
readkey;
end.
Program pr1;
uses crt;
var
a,r:real;
begin
clrscr;
write('Vvesti storonu kvadrata A ');
readln(a);
write('Vvesti radius kruga R ');
readln(r);
if 2*r =a then writeln('krug vpisan v kvadrat') else
if abs(a*sqrt(2) - 2*r)<=0.01 then writeln('kvadrat vpisan v krug')
else writeln(' ne vpisivajutsya');
writeln('end programm ');
readkey;
end.
- 27.03.2017 10:08
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.