№1Даны два действительных числа, не равные друг другу

№1Даны два действительных числа, не равные друг другу. Меньшее из этих двух чисел заменить половинной их суммы, а большее-их удвоенным произведением.№2Определить корректность введенной даты (число-от 1 до 31, месяц-от 1 до 12). Если введены неверные данные, то сообщить об этом.№3Написать программу, которая находит наибольшее из трех введенных чисел и выводит его на экран.

в избранное

kotomatrix

15 августа 2022

1) vara,b,x,y: real; beginreadln (a,b); x: =(a+b) /2; y: =2*a*b; if a>b thenbegina: =y; b: =x; endelsebegina: =x; b: =y; end; writeln ('a=',a: 8:3); writeln ('b=',b: 8:3); end.2) vard,m: integer; beginreadln (d,m); if (d<1) or (d>31) then writeln ('день введен неверно'); if (m<1) or (m>12) then writeln ('месяц введен неверно'); end.3) var a,b,c: integer; beginreadln (a,b,c); if (a>b) and (a>c) then writeln (a); if (b>a) and (b>c) then writeln (b); if (c>a) and (c>b) then writeln (c); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?