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

Для какого наименьшего целого неотрицательного числа a выражение 2x+y\ \textless \ a\\x\ \textless \ 30\\y\ \textless \ x тождественно истинно при любых целых неотрицательных x и y?

Показать ответ
Ответ:
EkimovaVlada
EkimovaVlada
30.10.2021 18:35

Задача 1.

#include <stdio.h>

int main() {

   int n;

   scanf("%d", &n);

   printf("Объём=%d\n",n*n*n);

   printf("Площадь=%d",n*n);

   getchar();

}

Задача 2.

#include <stdio.h>

int main() {

   float R1, R2, R3;

   scanf("%f", &R1);

   scanf("%f", &R2);

   scanf("%f", &R3);

   printf("R_общ.=%f",(R1*R2*R3)/(R1*R2+R2*R3+R1*R3));

}

Задача 3.

#include <stdio.h>

#include <math.h>

int main() {

   float h;

   scanf("%f", &h);

   printf("р=%f",sqrtf(2*h/9.81));

   getchar();

}

На решение этих задач я потратил примерно 2 часа. Будьте добры и поставить мне за усилия сердечко и 5 звёзд! ;-)


1. Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности. 2. Три сопротивления R
1. Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности. 2. Три сопротивления R
1. Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности. 2. Три сопротивления R
0,0(0 оценок)
Ответ:
Rekryt123
Rekryt123
23.01.2022 05:04

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота