№1 даны два действительных числа, не равные друг другу. меньшее из этих двух чисел заменить половинной их суммы, а большее-их удвоенным произведением. №2 определить корректность введенной даты(число-от 1 до 31, месяц-от 1 до 12).
если введены неверные данные, то сообщить об этом. №3 написать программу, которая находит наибольшее из трех введенных чисел и выводит его на экран.
Ответы на вопрос:
1)
var
a,b,x,y: real;
begin
readln(a,b);
x: =(a+b)/2;
y: =2*a*b;
if a> b then
begin
a: =y;
b: =x;
end
else
begin
a: =x;
b: =y;
end;
writeln('a=',a: 8: 3);
writeln('b=',b: 8: 3);
end.
2)
var
d,m: integer;
begin
readln(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;
begin
readln(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.
1)
var a,b,c,d: real;
begin
read(a,b);
c: =(a+b)/2;
d: =2*a*b;
if a> b then begin
a: =d;
b: =c;
end;
if a< b then begin
a: =c;
b: =d;
end;
writeln(a,' ',b);
end.
2)
var a,b: integer;
begin
read(a,b);
if (a< 1) or (a> 31) then writeln(' день введен неправильно');
if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');
end.
3)
var a,b,c: real;
begin
read(a,b,c);
if (a> b)and(a> c)then writeln(a);
if (b> a)and(b> c)then writeln(b);
if (c> b)and(c> a)then writeln(c);
end.
a8c3,e7₁₆ = 1010 1000 1100 0011 , 1110 0111₂ =
001 010 100 011 000 011 , 111 001 110₂ = 124303,716₈
6413,26₈ = 110 100 001 011 , 010 110₂ =
1101 0000 1011 , 0101 1000₂ = d0b,58₁₆
Популярно: Информатика
-
HaskyZ0nG24.10.2022 22:16
-
andrianovva08.12.2022 05:57
-
Данек4411.02.2022 01:45
-
reegiinaaa22.09.2021 09:23
-
supersuperolga113.04.2021 01:50
-
vadka18927.05.2023 20:17
-
Smertnik959523.03.2022 01:39
-
NoRMTaKK31.08.2022 04:22
-
kot29204.05.2021 18:43
-
Артем22221117.08.2021 18:48