В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
MrRobot1452390
MrRobot1452390
21.06.2021 19:16 •  Информатика

Приведите пример таблицы типа «объекты-объекты-один» 6 класс

Показать ответ
Ответ:
Соваучка
Соваучка
09.08.2022 00:34
1.
var
R,V: Real;
begin
ReadLn(R);
V:= (4/3)*pi*sqr(R)*R;
WriteLn(V);
ReadLn;
end.
2.
var
 a, b, c, CAB, CBA, ACB: Real;  
begin
writeln('vvedite storonu a'); readln (a);
writeln('vvedite storonu b'); readln (b);
writeln('vvedite storonu c'); readln (c);
CAB:=(sqr(c)-sqr(a)-sqr(b))/(-2*a*b);
CBA:=(sqr(a)-sqr(b)-sqr(c))/(-2*b*c);
ACB:=(sqr(b)-sqr(a)-sqr(c))/(-2*a*c);
writeln('ugol CAB =', CAB:3:2 );
writeln('ugol = CBA = ', CBA:3:2 );
writeln('ugol = ACB = ', ACB:3:2 );
readln;
end.
3.
//uses crt;
var
k: Integer; // Идёт k-ая секунда
begin
ReadLn(k);
WriteLn('Часов:', k div 3600);
While k>=3600 do k:= k - 3600;
WriteLn('Минут:', k div 60);
end.
4.
var
R1, R2, R3, R0: Real;
begin
WriteLn('Vvedite R1 ='); ReadLn(R1);
WriteLn('Vvedite R2 ='); ReadLn(R2);
WriteLn('Vvedite R3 ='); ReadLn(R3);
R0:=1/(1/R1+1/R2+1/R3);
WriteLn('Soprotivlenie = ', R0);
ReadLn;
end.
0,0(0 оценок)
Ответ:
aaalex02
aaalex02
27.06.2022 23:32
Class FootballTask{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in); int goals[] = new int[2], d = 0, e = 0;
  for(int cGoal = 0; cGoal<40; cGoal++){
   goals[cGoal%2] = in.nextInt();
   if(cGoal%2==1){
 if(goals[0]-goals[1]>=3)d++;
 if(goals[0]>goals[1])e+=3;
  else if(goals[0]==goals[1])e++;
   }
  }
  System.out.println("Разность забитых и пропущенных мячей большая или равная 3 допущена только в "+d+" игре(-ах).");
  System.out.print("Общее число очков, набранных командой - "+e);
 }
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота