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

Найти значение y=3/x-5 составить на до программу по информатике

👇
Ответ:
ргшгр
ргшгр
29.12.2020
Program pr;
var x:real;
k:real;
begin 
writeln('Введите значения x'); 
 readln(x); 
 k:=3/x; 
 x:=k-5; 
writeln('ответ ',x);
end.
4,8(17 оценок)
Открыть все ответы
Ответ:
porotnikova03
porotnikova03
29.12.2020

using System;

namespace Task

{

   class Program

   {

       static void Main(string[] args)

       {

           int[] numbers = {2,-27,-2,5,14,-88,54,-69};

           int count = 0;

           foreach (int number in numbers)

           {

               if (number > 0)

               {

                   count++;

               }

           }

           Console.WriteLine("Положительных чисел в массиве: "+count);

       }

   }

}

Программа считает количество положительных чисел больше нуля.

4,5(43 оценок)
Ответ:
qwem11
qwem11
29.12.2020
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n,p:integer;
  var s:string;
  for var a:=1 to 9 do
    for var b:=0 to 9 do
      for var c:=0 to 9 do begin
        n:=100*a+10*b+c;
        s:=(n*n).ToString.Right(3);
        p:=Pos(a.ToString,s);
        if p>0 then begin
          Delete(s,p,1);
          p:=Pos(b.ToString,s);
          if p>0 then begin
            Delete(s,p,1);
            if s=c.ToString then Write(n,'(',n*n,')',' ')
            end
          end
        end
end.

Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
4,7(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ