составить блок схему и программу на языке паскаль для решения следущей задаси: определить, имеется ли среди чисел a,b,c хотя бы одна пара взаимно
5-9 класс
|
противоположных чисел.
Program Vz;
uses crt;
var a,b,c:real;
begin
clrscr;
write('Введите 3 числа:');
readln(a,b,c);
if((a<>0) and (b<>0) and (a+b=0)) or ((a<>0) and (c<>0) and (a+c=0)) or ((b<>0)and (c<>0) and (b+c=0)) then writeln('Есть такая пара ! ')
else writeln('Нету таких !');
readkey;
end.
Другие вопросы из категории
2)Контейнер для файлов.
1....2...3...4..5..6...7...=1
1...2...3..4..5..6..7..8..=1
2. Из слогов -бор-,кос,гон,ход ,рог,бег,мол,вар,жар, подберите такой что он был последним слогом для первого слова и первым -для второго(запишите слоги в скабках. 1.по( )ан 2.по ( )гон 3.по( )ожа 4.по( )ок 5.по( )ода 6.по ( )ец 7по ( ) ун 8по ( )а 9 по( )г 10по( )от
помогите пожалуйста:)
ноль),подсчитывать сумму и среднее арифметическое введеных положительных чисел.
Читайте также
z);
if (x<=y) and (y<=z) then begin x:=2*x y:=2*y; z:= 2*z
end
else
begin
x:= abs(x) y:= abs(y) z:= abs(z)
end
writeln( x, ' ', y, ' ', z)
end
Составьте блок-схему, соответствующую программе.
Что является результатом работы программы?
чисел. Количество суммируемых
чисел должно вводиться во время работы программы. Программа должна
проверять правильность введенных пользователем данных и, если они неверные ( n ≤ 0 ), выдавать сообщение об ошибке.
Буду очень признательна, если кто-нибудь возьмется за это задание. Спасибо)
Построй
блок-схему или напиши программу на языке Паскаль для решения следующей задачи: