var a,b:integer;
begin
writeln ('Введите два числа:');
read (a,b);
if a > b then begin
writeln ('Максимальное число: ',a);
end
else begin
writeln ('Максимальное число: ',b);
end;
end.
Таблица - в прилагаемом файле.
Формулы:
В столбце В (начиная с ячейки В4): =B2*1,04
В столбце С (начиная с ячейки С2): =B2-350
В столбце D начиная с ячейки D3): =D2+C3
В столбце Е (начиная с ячейки Е3): =E2*0,99
Во всех формулах используется относительная адресация.
Таким образом, из таблицы видно, что покупку можно сделать через 6 месяцев работы (если из своей зарплаты оплачивать только интернет, а кормить-поить-одевать будут родители).
Program Pr1;
uses crt;
var a,b,c:integer;
f:boolean;
Begin
clrscr;
f:=false;
readln(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f:=true;
writeln(f);
end.
Rgb - red green blue
значение каждого параметра от 0 до 255 так что 512 вовсе не подходит
для якро красного подойдет только 0
ответ 0