This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
| Console.WriteLine(«введите число 1»); |
| int num1 = Convert.ToInt32(Console.ReadLine()); |
| Console.WriteLine(«введите число 2»); |
| int num2 = Convert.ToInt32(Console.ReadLine()); |
| int quadro1 = Quadro(num1); |
| int quadro2 = Quadro(num2); |
| if (quadro1 == num2 || quadro2 == num1) |
| Console.Write(«Да»); |
| > |
| else |
| Console.Write(«Нет»); |
| > |
| int Quadro (int a) |
| return a * a; |
| > |
8 класс, 15 урок, Алгоритм извлечения квадратного корня
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
| Console.WriteLine(«введите трехзначное число»); |
| int x = Convert.ToInt32(Console.ReadLine()); |
| if (x < 1000 x >99) |
| int two = x / 10; |
| int result = two % 10; |
| Console.Write(result); |
| > |
| else |
| Console.WriteLine(«ввели не трехзначное число»); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
| Console.WriteLine(«введите число»); |
| int x = Convert.ToInt32(Console.ReadLine()); |
| if (x < 100) |
| Console.Write(«третьей цифры нет»); |
| > |
| else |
| while (x >= 1000) |
| x = x / 10; |
| > |
| if (x < 1000) |
| int three = x % 100; |
| int tow = three % 10; |
| Console.Write(tow); |
| > |
| > |
Сколько будет, если 57 умножить на 135? / Одарённая (2017)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
| Console.WriteLine(«введите цифру дня недели»); |
| int x = Convert.ToInt32(Console.ReadLine()); |
| if (x > 0 x < 6) |
| Console.Write(«Нет»); |
| > |
| if (x > 5 x < 8) |
| Console.Write(«Да»); |
| > |
| if (x < 1 || x >7) |
| Console.Write(«Ввели не корректный день недели»); |
| > |
Источник: gist.github.com
Задача Квадратное уравнение
Даны действительные числа 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.
Любые данныеЛюбые данныеЛюбые данные Любые данные
Любые данные
Любые данные
Помогите, пожалуйста, с информатикой. 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.
Два вопроса : 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. Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно. Почему то пишет неправильное решение.
Надо найти ошибку в программе.
Любые данныеЛюбые данныеЛюбые данные Любые данные
Источник: shtoryotirina.ru
Ваня написал программу для вычисления квадрата любого числа но допустил ошибку
Вопрос по информатике:
Помогите, пожалуйста. Написать программу на языке Паскаль для расчёта квадрата любого числа. Число вводится с клавиатуры.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 27.11.2015 19:40
- Информатика
- remove_red_eye 6905
- thumb_up 15
Ответы и объяснения 1
taitvintimo724
- 28.11.2015 00:51
- thumb_up 7
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Источник: online-otvet.ru