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

3числа, могут ли быть сторонами прямоугольного треугольника или нет? напишите на языке паскаль получите 20 за правельный ответ

👇
Ответ:
mrdaaly
mrdaaly
15.03.2023
Var a,b,c:integer;
begin
writeln('Введите 3 числа, последняя должна быть введена гипотенуза');
read(a,b,c);
if (a=0) and (b=0) and (c=0) then writeln('Треугольника не существует') else
if (a<=b+c) or (b<=a+c) or (c<=a+b) and (sqr(c) = sqr(a) + sqr(b)) then writeln('Да могут быть сторонами треугольника') else writeln('Нет не могут');
end.
4,6(27 оценок)
Открыть все ответы
Ответ:
Kolla77
Kolla77
15.03.2023

ответ:«Компьютер» сөзі ағылшын тілінен аударғанда есептеуіш , есептеуге арналған құрылғы дегенді білдіреді. Компьютерлер есептеу операцияларының қатарларын адамның қатысуынсыз, алдын ала көрсетілген нұсқаулық – бағдарлама бойынша жүргізуге мүмкіндік береді. Есептеуіш техниканың қазіргі тарихының негізі 1943 жылы «Марк-1» машинасының дүниеге келуінен бастап қаланды. Компьютерлердің алдыңғы буындары шамдық есептеуіш машиналар болатын, олардың орнын транзисторлы электронды есептеуіш машиналар (ЭЕМ), содан кейін – интегралды сызбалар пайдаланылатын электронды есептеуіш машиналар және ең ақырында, қазіргі таңда аса үлкен интеграциялық деңгейлі сызбалар пайдаланылатын ЭЕМ басты.

Негізгі принциптері: Өзінің алдына қойылған тапсырманы орындау үшін компьютер механикалық бөліктердің орын ауыстырылуын, электрондардың, фотондардың, кванттық бөлшектердің ағынын немесе басқа да жақсы зерттелген физикалық құбылыс әсерлерін қолданады. Көбімізге компьютерлердің ең көп таралған түрі — дербес компьютер жақсы таныс.

Компьютер архитектурасы алға қойылған мәселені, зерттеліп отырған физикалық құбылысты максималды айқын көрсетіп, модельдеуге мүмкіндік береді. Мысалы, электрондық ағындар бөгеттер салу кезіндегі су ағынының үлгісі ретінде қолданылуы мүмкін. Осылай құрастырылған аналогтық компьютерлер XX ғасырдың 60-жылдары көп болғанымен, қазір сирек кездеседі.

Қазіргі заманғы компьютерлердің басым бөлігінде алға қойылған мәселе әуелі математикалық терминдерде сипатталады, бұл кезде барлық қажетті ақпарат екілік жүйеде (бір және ноль ретінде) көрсетіледі, содан кейін оны өңдеу үшін қарапайым логика алгебрасы қолданылады. Іс жүзінде барлық математикалық есептерді бульдік операциялар жиынына айналдыруға болатындықтан, жылдам жұмыс жасайтын электронды компьютерді математикалық есептердің, сонымен қатар, ақпаратты басқару есептерінің көпшілігін шешу үшін қолдануға болады.

Бірақ, компьютерлер кез келген математикалық есепті шеше алмайды. Компьютер шеше алмайтын есептерді ағылшын математигі Алан Тьюринг сипаттаған болатын.

Орындалған есеп нәтижесі пайдаланушыға әр түрлі енгізу-шығару құрылғыларының көмегімен көрсетіледі, мысалы, лампалық индикаторлар, мониторлар, принтерлер және т.б.

Компьютер — жай ғана машина, ол өзі көрсетіп тұрған сөздерді «түсінбейді» және өз бетінше «ойламайды». Компьютер тек қана бағдарламада көрсетілген сызықтар мен түстерді енгізу-шығару құрылғыларының көмегімен механикалық түрде көрсетеді. Адам миы экрандағы көріністі қабылдап, оған белгілі бір мән береді.

Объяснение:

4,6(64 оценок)
Ответ:
AnnI820
AnnI820
15.03.2023
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a.Select(x->2*x).Println
end.

Тестовое решение
n= 10
-52 -23 48 -54 -72 -36 -87 -46 -21 54
-104 -46 96 -108 -144 -72 -174 -92 -42 108

Длинный "школьный" вариант
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
const
  nn=100;
var
  i,n:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(200)-100;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do Write(a[i]*2,' ');
  Writeln
end.
4,6(4 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ