Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.08.2015 01:12
- Информатика
- remove_red_eye 8441
- thumb_up 31
Ответы и объяснения 1
1) Определение теплоты
Var q,i,rt:real;
Begin
Write('i='); readln(i);
Write('Rt='); readln(rt);
q:=(i*i)*rt;
Writeln('Q=',q);
End.
2) Площадь треугольника
Var s,p,a,b,c:real;
Begin
Write('A='); readln(a);
Write('B='); readln(b);
Write('C='); readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)*(p-b)*(p-c);
s:=sqrt(s);
Writeln('S=',s);
End.
3)Массив
Var mas:array[1500..3700] of integer;
i,n:integer;
Begin
for i:=1500 to 3700 do begin
mas[i]:=i;
if (mas[i] mod 206 = 0) then writeln(mas[i]);
end;
end.
- 09.08.2015 12:46
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.