сервис вопросов и ответовзадача pascal
5-9 класс|
|
Даны три точки А, В, С на числовой оси. Найти длины отрезков АС и ВС и их сумму.(нужно чтобы прошел тест на taskbook)
Mamo1999
09 апр. 2014 г., 3:47:51 (10 лет назад)
Катёна050595
09 апр. 2014 г., 4:44:45 (10 лет назад)
var A, B, C, AC, BC: integer;
begin
readln(a, b, c);
AC := abs(C - A);
BC := abs(B - A);
S := AC + BC;
Writeln('AC = ', AC);
Writeln('BC = ', BC);
Writeln('S = ', AC+BC);
end.
Через модули если только)
Ответить
Другие вопросы из категории
156 перевести в 8ричную в 16ричную и в 2ичную
179 перевести в 8ричную в 16ричную и в 2ичную
202 перевести в 8ричную в 16ричную и в 2ичную
225 перевести в 8ричную в 16ричную и в 2ичную
Боря,Витя,гриша и Егор встретились на всероссийской олимпиаде по информатике. Ребята приехали из разных городов: москвы , Омска, Санкт-Петербурга и
Кирова. Известно что Боря жил в одной комнате с мальчиком из Кирова и ни один из этих двух мальчиков никогда не был ни в Москве, ни в санкт-петербурке. Гриша играл в одной комнате с мальчиком из Москвы, а вечерами к ним заходил приятель из Кирова. Егор и мальчик из Москвы увлекаются игрой в шахматы . кто из ребят откуда приехал?
Читайте также
Задача для решения в Pascale: компьютер запрашивает число, если число положительное, то делим его на 7, в обратном случае возводим его
в квадрат.
P.S. задачу нужно решить через тип integer или real.
ЗАДАЧИ НА TURBO PASCALE
1)Найти наибольшее среди 2 чисел
2)Для чисел a,b,c,d вывести на экран полусумму наибольшего и наименьшего из них.
Напишите пожалуйста программы для этих задач.
Решение задач с использованием массивов / Pascal (Паскаль)
Помогите, пожалуйста, решить задачу!
Определить количество дней в первой декаде месяца, когда температура была выше средней.
Исходные данные: T - массив температуры
Промежуточные данные: i - порядковый номер
SUM - суммированная температура за 10 дней
SRT - средняя температура за 10 дней
Результирующие данные: K - количество дней с температурой выше средней
SUM:=SUM+T[i]
SRT:=SUM/10
K:=K+1, если выполняется SRT<T[i]
_______________________________
Program KTD
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;
Вы находитесь на странице вопроса "задача pascal", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.