Помогите, очень срочно
Программист написал программу вычисления периметра и площади прямоугольника. При
запуске программы была выдана ошибка. В какой строке допущена ошибка?
Ответ учителя по предмету Информатика
Странный у тебя программист -_-
Но он забыл поставить ;
Вот правильный код:
Источник: ded-otvet.ru
Ваня написал программу для вычисления квадрата любого числа но допустил ошибку какое из предложенных
ваня написал программу для подсчета площади квадрата
program ploshad_kvadrata;
var a,S:real;
begin
a:=5;
S:=a*a;
writeln(‘S=’,S,’кв.см’);
Вычислить z^n
end.
54 
Комментарии (0)
По дате По дате Популярные
Нет комментарий
Войдите, чтобы комментировать
Ответов нет
Знаешь ответ? Добавь его сюда и заработай денег! Ответы проходят модерацию. Минимум 100 символов.
Чтобы добавить ответ — нужно войти или зарегистрироваться
Похожие вопросы
(Ольга ученик ) (Информатика)
1
(Ольга ученик ) (Информатика)
(Ольга ученик ) (Информатика)
(Ольга ученик ) (Информатика)
1
(Андрей ученик ) (Информатика)
2
Популярное
(Женя Бурцев ученик ) (Математика)
3
(Анфим Гущин ученик ) (История)
1
(Рина Русакова ученик ) (Алгебра)
3
(Прокопий Герасимов ученик ) (Литература)
3
(Варвара Кузнецова ученик ) (Литература)
(Венедикт Федотов ученик ) (Математика)
1
(Дебора Русакова ученик ) (Физика)
2
Источник: teachs.ru
Высшая математика для детей 0+
Ваня написал программу для вычисления квадрата любого числа но допустил ошибку какое из предложенных
Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax2 + bx + c = 0. Даны три действительных числа, a не равно 0. Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно. Почему то пишет неправильное решение.
A = int(input()) b = int(input()) c = int(input()) d = (b**2) — (4*a*c) l = 2 * a if d == 0: print(-b/(2*a)) elif d > 0: print((-b + (d**(1/2))) / l, (-b — (d**(1/2))) / l)
Отслеживать nikobellic задан 31 окт 2019 в 19:28 nikobellic nikobellic 195 4 4 золотых знака 9 9 серебряных знаков 17 17 бронзовых знаков почему вы думаете, что корни — целые числа? 31 окт 2019 в 19:35
Два вопроса : 1) если правильно понимаю, у вам и коэффициенты и вывод корней -.целочисленные. Почему? 2) Если дискриминант будет отрицательным, квадратный корень из него вычислится?
31 окт 2019 в 19:38
Уровень C. Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата. Например, 252 = 625. Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.
Пример:
Введите N:
1000
1*1=1
5*5=25
6*6=36
25*25=625
76*76=5776
Задача Квадратное уравнение
Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax2 + bx + c = 0. Даны три действительных числа, a не равно 0. Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно. Почему то пишет неправильное решение.
A = int(input()) b = int(input()) c = int(input()) d = (b**2) — (4*a*c) l = 2 * a if d == 0: print(-b/(2*a)) elif d > 0: print((-b + (d**(1/2))) / l, (-b — (d**(1/2))) / l)
Отслеживать nikobellic задан 31 окт 2019 в 19:28 nikobellic nikobellic 195 4 4 золотых знака 9 9 серебряных знаков 17 17 бронзовых знаков почему вы думаете, что корни — целые числа? 31 окт 2019 в 19:35
Два вопроса : 1) если правильно понимаю, у вам и коэффициенты и вывод корней -.целочисленные. Почему? 2) Если дискриминант будет отрицательным, квадратный корень из него вычислится?
31 окт 2019 в 19:38
Программа:
Program n_3;
Var n, i,m, k:integer;
Begin
Writeln(‘введите N’); readln(n);
For i:=1 to n do
Begin
M:=i*i;
K:=10;
While (i div 10>0) do k:=k*10;
If m=(m div k)*k+i then writeln(i,’*’,i,’=’,m);
End;
End.
Эта программа выводит только 1 1 1, 5 5 25, 6 6 36.
Ru. stackoverflow. com
Любые данныеЛюбые данныеЛюбые данные Любые данные
Любые данные
Любые данные
Уровень C. Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата. Например, 252 = 625. Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.
Пример:
Введите N:
1000
1*1=1
5*5=25
6*6=36
25*25=625
76*76=5776
Программа:
Program n_3;
Var n, i,m, k:integer;
Begin
Writeln(‘введите N’); readln(n);
For i:=1 to n do
Begin
M:=i*i;
K:=10;
While (i div 10>0) do k:=k*10;
If m=(m div k)*k+i then writeln(i,’*’,i,’=’,m);
End;
End.
Эта программа выводит только 1*1=1, 5*5=25, 6*6=36
Лучший ответ
Условие задачи на олимпиаде 2013-2014 годов.
1. «Автоморфные числа» (10 баллов)
Ваня заметил, что для некоторых чисел справедливо следующее свойство: если возвести число в квадрат, то квадрат числа будет заканчиваться цифрами самого числа. Например, число 25 обладает этим свойством: 252=625 оканчивается на 25. Число 26 не обладает этим свойством: 262=676 не оканчивается на 26. Он даже нашел в Интернете, что такие числа называются автоморфными.
Ваня обычно успешно может определять, является число автоморфным или нет, но он хочет проверить себя и просит Вас о помощи. Ваша задача − написать программу, которая позволяла бы определить, является число автоморфным или нет.
Входной файл INPUT. TXT содержит одно целое число (1 ≤ N ≤ 104).
Выходной файл OUTPUT. TXT должен содержать 1, если число является автоморфным, и 0 в противном случае.
Если работать с файлами с входными и выходными данными, решение является таким:
Program avto;
Var a, b, c, d, code, e: integer;
S, s1: string;
F1, f2: text;
Begin
Assign(f1,’input. txt’);
Assign(f2,’output. txt’);
Reset(f1);
Read(f1, a);
B:= sqr(a);
Str(b, s);
C:= length(s);
Str(a, s1);
D:= length(s1);
E:= c — d;
Delete (s, 1, e);
Val (s, b, code);
Val (s1, a, code);
Rewrite(f2);
If a = b then write (f2, ‘1’)
Else write (f2, ‘0’);
Close(f1);
Close(f2);
End.
Два вопроса : 1) если правильно понимаю, у вам и коэффициенты и вывод корней -.целочисленные. Почему? 2) Если дискриминант будет отрицательным, квадратный корень из него вычислится?
Помогите, пожалуйста, с информатикой. 10 класс. Надо найти ошибку в программе. Язык паскаль
Уровень C. Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата. Например, 252 = 625. Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.
Пример:
Введите N:
1000
1*1=1
5*5=25
6*6=36
25*25=625
76*76=5776
Программа:
Program n_3;
Var n, i,m, k:integer;
Begin
Writeln(‘введите N’); readln(n);
For i:=1 to n do
Begin
M:=i*i;
K:=10;
While (i div 10>0) do k:=k*10;
If m=(m div k)*k+i then writeln(i,’*’,i,’=’,m);
End;
End.
Эта программа выводит только 1*1=1, 5*5=25, 6*6=36
Лучший ответ
Условие задачи на олимпиаде 2013-2014 годов.
1. «Автоморфные числа» (10 баллов)
Ваня заметил, что для некоторых чисел справедливо следующее свойство: если возвести число в квадрат, то квадрат числа будет заканчиваться цифрами самого числа. Например, число 25 обладает этим свойством: 252=625 оканчивается на 25. Число 26 не обладает этим свойством: 262=676 не оканчивается на 26. Он даже нашел в Интернете, что такие числа называются автоморфными.
Ваня обычно успешно может определять, является число автоморфным или нет, но он хочет проверить себя и просит Вас о помощи. Ваша задача − написать программу, которая позволяла бы определить, является число автоморфным или нет.
Входной файл INPUT. TXT содержит одно целое число (1 ≤ N ≤ 104).
Выходной файл OUTPUT. TXT должен содержать 1, если число является автоморфным, и 0 в противном случае.
Если работать с файлами с входными и выходными данными, решение является таким:
Program avto;
Var a, b, c, d, code, e: integer;
S, s1: string;
F1, f2: text;
Begin
Assign(f1,’input. txt’);
Assign(f2,’output. txt’);
Reset(f1);
Read(f1, a);
B:= sqr(a);
Str(b, s);
C:= length(s);
Str(a, s1);
D:= length(s1);
E:= c — d;
Delete (s, 1, e);
Val (s, b, code);
Val (s1, a, code);
Rewrite(f2);
If a = b then write (f2, ‘1’)
Else write (f2, ‘0’);
Close(f1);
Close(f2);
End.
Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax2 + bx + c = 0. Даны три действительных числа, a не равно 0. Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно. Почему то пишет неправильное решение.
Надо найти ошибку в программе.
Любые данныеЛюбые данныеЛюбые данные Любые данные
Источник: xn—-ctbeac1atud4aaxcs.xn--p1ai