Var s, m: integer; begin writeln('возраст саши = '); read(s); writeln('возраст маши = '); read(m); if s > m then writeln('саша старше маши'); if m > s then writeln('маша старше саши'); if m = s then writeln('одногодки'); end.
Ответ дал: Гость
var a,b,c: integer;
begin
writeln('введите 3 целых числа');
read(a,b,c);
write('среди трех данных чисел есть хотя бы одна пара ');
if (a=b) or (a=c) or (b=c) then write(' - выражение истинно') else write(' - выражение ложно');
Популярные вопросы