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

Выбери программу, которая вычисляет длину гипотенузы.

var
n,x,h:real;
begin
writeln('Введи длины катетов n и x ');
readln(n,x);
h:=sqr(sqrt(n)+sqrt(x));
writeln('h=',c:8:2);
readln;
end.

var
n,x,h:real;
begin
writeln('Введи длины катетов n и x ');
readln(n,x);
h:=n*n+x*x;
writeln('h=',c:8:2);
readln;
end.

var
n,x,h:real;
begin
writeln('Введи длины катетов n и x ');
readln(n,x);
h:=sqrt(n*n+x*x);
writeln('h=',h:8:2);
readln;
end.

👇
Ответ:
alisgranger
alisgranger
14.02.2022

var

n,x,h:real;

begin

writeln('Введи длины катетов n и x ');

readln(n,x);

h:=sqrt(n*n+x*x);

writeln('h=',h:8:2);

readln;

end.

(третья программа)

Объяснение:

4,5(8 оценок)
Открыть все ответы
Ответ:
kolya14445
kolya14445
14.02.2022
1)
var s:string;
     i:integer;
     f:boolean;
begin
  f:=false;
  write ('S = ');
  readln(s);
  for i:=1 to length(s) div 2 do
   if s[i]=s[length(s)-i+1] then f:=true else 
    begin
      f:=false;
      break;
    end;
  if f then writeln ('PALINDROM') else writeln ('NOT PALINDROM');
  readln;
end.

2)
var a,b:integer;
     count,j:integer;
function palindr (n:integer):boolean;
var s:string;
     i:integer;
begin
  palindr:=false;
  str (n,s);
    for i:=1 to length(s) div 2 do   
      if s[i]=s[length(s)-i+1] then palindr:=true else
        begin
           palindr:=false;
           break;
        end;
end;
begin
  write ('A = ');
  readln(a);
  write ('B = ');
  readln(b);
  count:=0;
  for j:=a to b do
    if palindr(j) then
     begin
       write (j,' ');
       count:=count+1;
     end;
  writeln;
  writeln ('Kol-vo palindromov: ',count);
  readln;
end.
4,7(72 оценок)
Ответ:
dasha8872
dasha8872
14.02.2022
Если Вы ранее пользовались интернетом и все было нормально, то следует проверить компьютер на вирусы. Возможно  антивирусная программа попросту устарела. Тогда, следует обновить антивирусную программу или установить новую. Если же вирусов нет, то проверьте качество сети, иногда браузеры выдают аварийную ошибку, когда прерывается связь. Это можно легко определить, на модеме будет часто и прерывисто мигать лампочка (если у вас модем допустим мегафон или что-то подобное), на стационарном модеме, подключенном к телефону, потухнет или будет гореть красным знак "собаки". 
Когда вы убедились, что с Вашей стороны все в порядке. то вы имеете право обратиться в "Центр управления сетями и общим доступом", или обратиться по телефону, указанному в договоре с компанией представителем услуг, с сообщением о неисправности сети. В указанный  срок они обязаны устранить неполадки.
4,8(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ