Составить программу определяющая существует ли среди чисел а, b,c число ,равное ,числу d.
Все числа и результат вывести на экран
Ответы
Ответ дал:
1
ответ:
program n_1;
var a,b,c,d:integer;
begin
writeln ('введите три числа через пробел');
read (a,b,c);
writeln('введите число d')
readln(d);
writeln ('a= ,a:5,'b=',b:5,'c=',c:5);
writeln ('d=',d:5);
if (a=d) or (b=d) or (c=d) then write ('верно') else write (' неверно');
end.
vladislav7795:
Помоги с ещё одной задачей
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад
7 лет назад