М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sashamur20051
sashamur20051
07.06.2021 12:55 •  Информатика

нужно решить задачи С++ 1. Пользователь вводит два вещественных числа. Если первое превосходит второе более, чем а два раза, то найдите их произведение и разность первого и второго и выведите их на экран. В противном случае вычислите сумму их модулей и выведите их на экран.
2. Пользователь вводит два целых двузначных числа. Если большее из них чётное, то выведите на экран первую цифру максимального числа. В противном случае вычислите частное большего и меньшего и выведите его на экран.

👇
Ответ:
shaxrizat1
shaxrizat1
07.06.2021

см вложение с уважением Александр и это не я а не в курсе что это за мной бегал по английски и это не я а теперь ЗАБУДЬТЕ и в курсе это я не могу найти этот вопрос не найдено ни одной видеозаписи в этом году в ответ на этот вопрос не

Объяснение:

Питти я не могу найти этот вопрос не найдено ни одной видеозаписи в этом году в ответ на этот вопрос не найдено ни одной видеозаписи в этом году в ответ на этот вопрос не найдено ни одной видеозаписи в этом году в ответ на этот адрес ное знаю что я могу в любой город нер

ооо

4,6(37 оценок)
Открыть все ответы
Ответ:
Zavgorodnev04
Zavgorodnev04
07.06.2021
Первая
program PrograPervaya;
var x,y,z,f:integer;

begin
  Writeln('vvedite pervoe chislo:=');
   readln(x);
  Writeln('vvedite vtoroe chislo:=');
   readln(y);
  Writeln('vvedite trete chislo:=');
   readln(z);
  if (x < y) and (x < z) then  begin    Writeln('Pervoe chislo menshee');
  end;
  if (y < x) and (y < z) then
  begin
    Writeln('Vtoroe chislo menshee');
  end;
  if (z < x) and (z < y) then  begin  Writeln('Tretee chislo menshee');
  end;
  Write('End?');
  readln(f);
end. 
 Вторая
program PrograVtoraya;
var k,i:integer;
begin
  writeln('vevedite chislo');
  readln(k);
  if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then
  begin    writeln('chislo kratnoe 3, 7,9');
  end
  else
  begin
  writeln('chislo ne kratno 3,7,9');
    end;
  writeln('End?');
  readln(i);

end.

Третья

program PrograVtoraya;var z,n,k,s,i:integer;
begin
writeln
('vvedite 4 znach chislo');
readln(n);
z:=n div 1000;
k:=n div 100 mod 10;
s:=n div 10 mod 10;
i:=n mod 10;
if ((z = k) and (z = s) and (s = k)) or ((k = s) and (k = i) and (s = i)) or ((i = z) and (i = k)) and ( k = z) then begin writeln('Da, verno');
 end
else
begin
writeln('net, ne verno!');
end;

 writeln('End?');
readln(i);

end.     
4,7(91 оценок)
Ответ:
костя140
костя140
07.06.2021
Const
   N = 15;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
WriteLn('P = ',P);
End.

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
Write('Элементы, кратные пяти:');
For i:= 1 to N do
    if A[i] mod 5 = 0 then Write(' ',A[i])
End.

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(31);
    Write(' ',A[i]);
    if i mod 2 <> 0 then S:=S+A[i]
    End;
WriteLn;
WriteLn('Sr = ',S/((n div 2)+(n mod 2)));
End.
4,4(55 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ