Найди верный ответ на вопрос ✅ «Составьте программу для решения следующей задачи. Введите с клавиатуры три числа: А, В, С. Если А>В>C>0, то замените все числа их . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Составьте программу для решения следующей задачи. Введите с клавиатуры три числа: А, В, С. Если А>В>C>0, то замените все числа их квадратами и выведите результаты на экран.
Источник: urokam.net
Составьте программу для решения следующей задачи. Введите с клавиатуры три числа: А, В, С. Если А>В>C>0, то замените все числа их квадратами и выведите результаты на экран. Если они отрицательны и не равны между собой, то каждое число замените наибольшим из них и выведите результаты. Иначе, найдите и выведите их сумму.
Program asd;
uses crt;
var a,b,c,max:integer; r:real;
begin
Write(‘Введите число A: ‘);
Readln(a);
Write(‘Введите число B: ‘);
Readln(b);
Write(‘Введите число C: ‘);
Readln(c);
If a>=b then max:=a
else
max:=b;
If c>max then
max:=c;
r:=a+b+c;
If (A>B) and (B>C) and (C>0) then
Writeln(‘A= ‘,a*2,’ B= ‘,b*2,’ C= ‘,c*2);
If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then
begin
A:=max;
B:=max;
C:=max;
Writeln(‘A= ‘,a,’ B= ‘,b,’ C= ‘,c);
end
else
Writeln(‘Symma: ‘,r);
end.
Источник: znanija.net
Составьте программу для решения следующей задачи введите с клавиатуры три числа если все числа
Привет Лёва Середнячок
составьте программу для решение следующей задачи. введите с клавиатуры три числа. если все числа отрицательны и не равны между собой, то замените числа их квадратами, иначе найдите и выведите сумму этих чисел. выведите результаты на экран. хелп, паскаль
Нахождение суммы цифр вводимого с клавиатуры натурального трехзначного числа на языке Паскаль
Ответ проверен экспертом
0 (0 оценок)
triolana 5 лет назад
Светило науки — 553134 ответа — 388270 раз оказано помощи
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
Источник: vashurok.com