составить программу в pascalABC.net с использованием подпрограммы в виде процедуры:котоая считает сумму двух одинаковых чисел.Если это не так,то программа выаодит на э...

- 10 January 2021
- Автор: лев253
составить программу в pascalABC.net с использованием подпрограммы в виде процедуры:котоая считает сумму двух одинаковых чисел.Если это не так,то программа выаодит на экран сообщение о том,что числа разные. Повторяется до тех пор,пока ведение числа не будут удовлетворять заданному условию
Помогите плиз
- 10 January 2021
- Ответ оставил: pacixor
procedure sumSameNumbers();
var
a, b, sum: real;
begin
repeat
write('Введите a и b: '); readln(a, b);
if a = b then
begin
    sum := a + b;
    writeln('Сумма = ', sum)
end
else
    writeln('Числа не одинаковые');
until a = b;
end;

begin
   sumSameNumbers();
end.

0

- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (20.04.2025) наш сайт содержит 109575 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Найти другие ответы
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

Ответить на вопрос

Последние опубликованные вопросы

Объем видеопамяти для хранения страниц изображения при условии, что разрешающая способность двух с дисплея плана 640*350 пикселей, а количество используемых цветов-16? Комитет можно составить из 3 или 5 судей. Есть 5 кандидатов, точность предсказаний которых приведена в таблице. Составьте ансамбль судей, имеющий наибольшую из возможных точность предсказания. В ан... 16. Шифр кодового замка является двузначным числом. Буратино забыл код, но помнит, что сумма цифр этого числа, сложенная с их произведением, равна самому числу. Напишите все возможные варианты кода... S<13 и не s чётное Получено сообщение, информационный объем которого равен 32 битам. Чему равен этот объем в байтах Каждый переданный кодовый символ может принят ошибочно с фиксированным вероятностью P Решать задачку по этой формуле P(zj/Uk) = P/N-1 при j≠k I-p при j=k В дощечку в ряд вбито 10 гвоздиков, таким образом, получилось 9 последовательных промежутков между ними. Длины промежутков (подряд, слева направо) оказались равны 7, 2, 8, 4, 3, 9, 5, 1, 6. Между н... Кто может подсказать почему не работает секундомер? (не добирает 60 секунд следовательно не переходит на следующую минуту) язык Python import time from tkinter import * from datetime import datetim... Pyhon (Информатика) Решить задачу: На тренировках спортсмен ежедневно пробегает некоторую дистанцию, с каждым днем увеличивая ее на 10%. Составить программу, определяющую по расстоянию, преодоленн... совокупность средств и правил взаимодействия человека с компьютером Что такое информатика в ИБ кратко 1) 1561 +7361 в 8-ичной системе счисления2) 1101011 + 11011 в 2-ичной системе счисления3) 101001 * 101 в 2-ичной системе счисления4) 95FA * D23 в 16-ичной системе счисления5) 1654 * 453 в 8-ичной с...

procedure sumSameNumbers();var a, b, sum: real;beginrepeat write('Введите a и b: '); readln(a, b); if a = b then begin sum := a + b; writeln('Сумма = ', sum) end else writeln('Числа не одинаковые'); until a = b; end;begin sumSameNumbers();end.

Последние опубликованные вопросы

procedure sumSameNumbers();
var
a, b, sum: real;
begin
repeat
write('Введите a и b: '); readln(a, b);
if a = b then
begin
sum := a + b;
writeln('Сумма = ', sum)
end
else
writeln('Числа не одинаковые');
until a = b;
end;

begin
sumSameNumbers();
end.