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

Найти и объяснить ошибки в каждом фрагменте программы Паскаль


Найти и объяснить ошибки в каждом фрагменте программы Паскаль

Показать ответ
Ответ:
levyjigor45
levyjigor45
08.10.2021 10:31

язык программирования питон

1)

import math;

r = int(input());

print(2 * math.pi * r);

print(math.pi * r ** 2);

2)

1.

import math;

a = float(input());

b = float(input());

print((math.sqrt(a) + math.sqrt(b)) / (math.sqrt(a ** 2 + b ** 2)));

2.

import math;

z = float(input());

y = float(input());

print((z * y) / (math.sqrt(z ** 3 + y ** 3)));

3.

import math;

x = float(input());

print(math.abs(x ** 2 - 2.4 * x + ((x + 1) / (x ** 2 + 2;

3) понял что надо среднее арифмитическое сделать из трех чисел, если что-то не так понял напиши.

a = float(input());

b = float(input());

c = float(input());

print((a + b + c) / 3);

4) не понял условие, перевод не понятный. Напиши если сможешь качественно перевести.

вариант Б тоже-самое что и 4 задание.

0,0(0 оценок)
Ответ:
Callll
Callll
26.04.2023 08:46
var   s : string[50];
  i, j, k : word;  
 f : boolean;  
function isSpace(ch : char) : boolean;
begin   isSpace := false;  
if ch = ' ' then isSpace := true;
end;  
begin   f := false;  
   repeat     j := 0;
    writeln('введите строку, состоящую из 2 слов');
    readln(s);    
for i := 1 to length(s) do    
   if isSpace(s[i]) then  
    begin    
     inc(j);      
   k := i;       end;
     if j =1 then f := true;
    until f;    
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); 
end.
недавно такую писала :)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота