вычисли соседей введенного пользователем числа и выводит строку по образцу

Вычисли соседей введенного пользователем числа и выведи строку по образцу. Введите число:
>>> 678
Число 678 на один больше числа 679 ии на один меньше числа 677

Ответы

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

if i mod 2=0 then s: =s+i;

writeln(‘сумма всех четных чисел от 10 до 50 равна ‘,s)

вот вариант если надо найти среднее арифметическое из n нечётных чисел начиная от единицы.

program test; var total: real; i, n: integer; begin write(‘enter n: ‘); readln(n); total : = 0; write(‘(‘); for i : = 1 to (n + n) do begin if i mod 2 0 then begin total : = total + i; write(i); if i

Ответов: 2 17.03.2019 19:00

Информатика

Источник

Len-sovet

Женские секреты, советы, лайфхаки

Поиск по этому блогу

Модуль 2.4. Целочисленная арифметика. Часть 1

Укажите значение переменой х после выполнения следующего кода:

Что появляется на экране после выполнения следующей программы?

Задача: Три последовательных числа

Напишите программу вывода на экран трех последовательно идущих чисел, каждое на отдельной строке. Первое число вводит пользователь, остальные числа вычисляются в программе.

Формат входных данных:
На вход программе подается одно целое число.

Формат выходных данных:
Программа должна вывести три последовательно идущих числа в соответствии с условием задачи.

Напишите программу, которая считывает три целых числа и выводит на экран их сумму. Каждое число записано в отдельной строке.

Формат входных данных:
На вход программе подаётся три целых числа, каждое на отдельной строке.

Формат выходных данных:
Программа должна вывести сумму введенных чисел.

Напишите программу, вычисляющую объём куба и площадь его полной поверхности, по введённому значению длины ребра.

Формат входных данных:
На вход программе подается одно целое число – длина ребра.

Формат выходных данных:
Программа должна вывести текст и числа в соответствии с условием задачи.

Напишите программу, которая считывает целое число, после чего на экран выводится следующее и предыдущее целое число с пояснительным текстом.

Формат входных данных:
На вход программе подаётся целое число.

Формат выходных данных:
Программа должна вывести текст согласно условию задачи.

Задача: Стоимость покупки

Напишите программу, которая считает стоимость трех компьютеров, состоящих из монитора, системного блока, клавиатуры и мыши.

Формат входных данных:
На вход программе подаётся четыре целых числа, каждое на отдельной строке. В первой строке — стоимость монитора, во второй строке — стоимость системного блока, в третье строке — стоимость клавиатуры и в четвертой строке — стоимость мыши.

Формат выходных данных:
Программа должна вывести одно число – стоимость покупки (трех компьютеров).

Источник

Len-sovet

Женские секреты, советы, лайфхаки

Поиск по этому блогу

Модуль 2.5. Целочисленная арифметика. Часть 2

Вычислите результат целочисленного деления:

Вычислите остаток от деления:

Что будет выведено на экран в результате выполнения следующей программы?

Задача: Расстояние в метрах

Напишите программу, которая находит полное число метров по заданному числу сантиметров.

Формат входных данных:
На вход программе подаётся натуральное число – количество сантиметров.

Формат выходных данных:
Программа должна вывести одно число – полное число метров.

Формат входных данных:
На вход программе подаётся два целых числа: количество школьников и количество мандаринов, каждое на отдельной строке.

Формат выходных данных:
Программа должна вывести два числа: количество мандаринов, которое достанется каждому школьнику, и количество мандаринов, которое останется в корзине, каждое на отдельной строке.

Формат входных данных:
На вход дается число целое n n – население Вселенной.

Формат выходных данных:
Программа должна вывести одно число – количество выживших.

Формат входных данных:
На вход программе подаётся целое число – место с заданным номером в вагоне.

Формат выходных данных:
Программа должна вывести одно число – номер купе, в котором находится указаное место.

Формат входных данных:
На вход программе подаётся целое число – количество минут.

Формат выходных данных:
Программа должна вывести текст в соответствии с условием задачи.

Напишите программу, в которой рассчитывается сумма и произведение цифр положительного трёхзначного числа.

Формат входных данных:
На вход программе подаётся положительное трёхзначное число.

Формат выходных данных:
Программа должна вывести два числа с поясняющим текстом: сумма цифр и произведение цифр.

Формат входных данных:
На вход программе подаётся положительное трёхзначное целое число, все цифры которого различны.

Формат выходных данных:
Программа должна вывести шесть чисел, образованных при перестановке цифр заданного числа в следующем порядке:

Задача: Четырёхзначное число

Напишите программу для нахождения цифр четырёхзначного числа.

Формат входных данных:
На вход программе подаётся положительное четырёхзначное целое число.

Формат выходных данных:
Программа должна вывести текст в соответствии с условием задачи.

Источник

Решение задач на С++

воскресенье, 16 января 2011 г.

Условный оператор

Задача A. Максимум из двух чисел
Даны два целых числа, каждое число записано в отдельной строке. Выведите наибольшее из данных чисел.

Задача B. Високосный год
Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.)

Задача C. Тестирующая система
В условии одной из задач на этом сайте написано: “Если данное четырехзначное число является симметричным, выведите 1, иначе выведите любое другое целое число”. Для проверки задачи используются заранее подготовленные примеры и правильные ответ на них. Школьнику кажется, что он решил эту задачу, но тестирующая система почему-то не принимает его решение. Школьник думает, что это происходит оттого, что он выводит не то любое другое число, которое записано в правильных ответах.
Напишите программу, которая по ответу, записанному в тестирующей системе и по ответу школьника определяет, верно ли школьник решила задачу. Программа получает на вход два числа: ответ, записанный в тестирующей системе и ответ школьника. Программа должна вывести YES, если школьник дала верный ответ и NO в противном случае.

Задача E. Какое из чисел больше?
Даны два целых числа, каждое записано в отдельной строке. Программа должна вывести число 1, если первое число больше второго, число 2, если второе больше первого, или число 0, если они равны.

Задача F. Максимум из трех
Даны три числа, каждое записано в отдельной строке. Выведите наибольшее из данных чисел (программа должна вывести ровно одно целое число).

Задача G. Ладья
Требуется определить, бьет ли ладья, стоящая на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты ладьи (два числа) и координаты другой фигуры (два числа), каждое число вводится в отдельной строке.

Задача не требует дополнительных условий, что шахматная доска не может быть больше 8х8, и фигуры не могут находиться в одной клетке.

Задача H. Слон
Требуется определить, бьет ли слон, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты слона и координаты другой фигуры.

Задача не требует дополнительных условий, что шахматная доска не может быть больше 8х8, и фигуры не могут находиться в одной клетке.

Задача I. Ферзь
Требуется определить, бьет ли ферзь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты ферзя и координаты другой фигуры.

Задача не требует дополнительных условий, что шахматная доска не может быть больше 8х8, и фигуры не могут находиться в одной клетке.

Задача J. Король
Поле шахматной доски определяется парой чисел (a, b), каждое от 1 до 8, первое число задает номер столбца, второе – номер строки. Заданы две клетки. Определите, может ли шахматный король попасть с первой клетки на вторую за один ход.
Даны 4 целых числа от 1 до 8 каждое, первые два задают начальную клетку, вторые два задают конечную клетку. Начальная и конечная клетки не совпадают. Числа записаны в отдельных строках. Программа должна вывести YES, если из первой клетки ходом короля можно попасть во вторую, или NO в противном случае.

Задача не требует дополнительных условий, что шахматная доска не может быть больше 8х8, и фигуры не могут находиться в одной клетке.

Задача K. Конь
Требуется определить, бьет ли конь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты коня и координаты другой фигуры.

Задача L. Шоколадка
Требуется определить, можно ли от шоколадки размером n × m долек отломить k долек, если разрешается сделать один разлом по прямой между дольками (то есть разломить шоколадку на два прямоугольника). Вводятся 3 числа: n, m и k; k не равно n × m. Гарантируется, что количество долек в шоколадке не превосходит 30000.

Задача N. Уравнение
Решить в целых числах уравнение ax + b = 0. Вводятся 2 числа: a и b. Необходимо вывести все решения, если их число конечно, “NO” (без кавычек), если решений нет, и “INF” (без кавычек), если решений бесконечно много.

Задача O. Сложное уравнение
Решить в целых числах уравнение ( ax + b ) : ( cx + d ) = 0. Вводятся 4 числа: a, b, c и d; c и d не равны нулю одновременно. Необходимо вывести все решения, если их число конечно, “NO” (без кавычек), если решений нет, и “INF” (без кавычек), если решений бесконечно много.

Задача P. Сдача
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.

Задача Q. Мороженое
В кафе мороженое продают по три шарика и по пять шариков. Можно ли купить ровно k шариков мороженого?

Задача R. Котлеты
На сковородку одновременно можно положить k котлет. Каждую котлету нужно с каждой стороны обжаривать m минут непрерывно. За какое наименьшее время удастся поджарить с обеих сторон n котлет? Вводятся 3 числа: k, m и n.

Задача S. Координатные четверти
Даны координаты двух точек на плоскости, требуется определить, лежат ли они в одной координатной четверти или нет (все координаты отличны от нуля). Вводятся 4 числа: координаты первой точки (x1, y1) и координаты второй точки (x2, y2).

Задача T. Существует ли треугольник?
Даны три натуральных числа a, b, c, записанные в отдельных строках. Определите, существует ли треугольник с такими сторонами. Если треугольник существует, выведите строку YES, иначе выведите строку NO.

Задача U. Количество равных из трех
Даны три целых числа, записанных в отдельных строках. Определите, сколько среди них совпадающих.
Программа должна вывести одно из чисел: 3 (если все совпадают), 2 (если два совпадают) или 0 (если все числа различны).

Задача V. Квадратное уравнение
Найдите все решения квадратного уравнения ax2 + bx + c = 0.
Вводятся действительные числа a, b, c, a не равно 0.
Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно.

Задача W. Тип треугольника
Определите тип треугольника (остроугольный, тупоугольный, прямоугольный) с данными сторонами. Даны три натуральных числа – стороны треугольника.
Необходимо вывести одно из слов: rectangular для прямоугольного треугольника, acute для остроугольного треугольника, obtuse для тупоугольного треугольника или impossible, если входные числа не образуют треугольника.

Задача AD. Римская система счисления
Дано число X (1 ≤ X ≤ 100). Требуется перевести это число в римскую систему счисления.

Источник

Вычисли соседей введенного пользователем числа и выведи строку по образцу. Введите число:
>>> 678
Число 678 на один больше числа 679 ии на один меньше числа 677

>&gt»>

Ответы

uses crt; var a: array [1..99, 1..99] of integer; i,j,n,m,x,z: integer; beginclrscr; randomize(); z: =0; writeln(‘введите количество строк’); readln(n); writeln(‘введите количество столбцов’); readln(m); writeln(‘введите номер строки’); readln(x); for i: =1 to n dofor j: =1 to m dobegina[i,j]: =random(10); if x=i then z: =z+a[i,j]; end; for i: =1 to n dobeginfor j: =1 to m dowrite(a[i,j]: 2, ‘ ‘ ); writeln(); writeln; end; writeln(‘сумма ‘,x,’ строки=’,z); readln(); end.

при мощности алфавита 256 один знак = 1 байт, а следовательно:

переводим целую часть числа. заменяем каждый разряд на код из таблицы.

двоичная сс восьмеричная сс

получаем число: 7748 = 1111111002

переводим дробную часть числа.получаем число: 08 = 0002переводим целую часть числа. для этого разделим исходный код на группы по 4 разряда.111111100 = 0001 1111 1100 затем заменяем каждую группу на код из таблицы.

Источник