Написать программу нахождения суммы цифр вводимого с клавиатуры натурального трехзначного числа.
2. Написать программу, определяющую истинность высказывания «Треугольник с длинами сторон a,b,c является равнобедренным» для произвольных целых чисел a,b,c

ЖаннаЛьюес ЖаннаЛьюес    3   03.04.2020 06:05    0

Ответы
rada1213 rada1213  11.09.2020 23:53

1. Program z1;

var s:string;

     a,o,code:integer;

begin

val(s[1],a,code)

o+=a

val(s[2],a,code)

o+=a

val(s[3],a,code)

o+=a

writeln(o)

end.

2. Program z1;

var a,b,c:integer;

begin

if a = b or b = c or a = c

 then print('YES')

 else print('NO')

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика