//7.Написать программу на Паскале вычисления значения функции(х^2 при х>0 х-12 при х≤0)
var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then writeln('Ответ ', power(x,2))
else writeln('Ответ ', x-12);
end.
//8.Написать программу на Паскале нахождения периметра произвольного четырехугольника, данные вводить с клавиатуры.
var
a,b,c,d:integer;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
writeln('P= ', a+b+c+d);
end.
//9.Написать программу на Паскале вычисления значения выражения у=15х3+3х2-6
var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('Ответ ', 15*power(x,3)+3*power(x,2)-6)
end.
//10.Написать программу на Паскале вычисления значения функции(х^2+5х-4 при х>3х при х≤3)
var
x:integer;
begin
writeln('Введите x');
readln(x);
if x>3 then writeln('Ответ ', power(x,2)+5*x-4)
else writeln('Ответ ', x);
end.
Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6
USES crt;
var a,b,c,d:real;
BEGIN
clrscr;
readln(a,b,c,d);
if (a > b) and (b > c) then
writeln('Max = ',a,', Min = ',c);
if (b > a) and (a > c) then
writeln('Max = ',b,', Min = ',c);
if (a > c) and (c > b) then
writeln('Max = ',a,' Min = ',b);
if (c > a) and (a > b) then
writeln('Max = ',c,', Min = ',b);
if (b > c) and (c > a) then
writeln('Max = ',b,', Min = ',a);
if (b > d) and (d > b) then
writeln('Max = ',b,', Min = ',b);
if (d > b) and (d > b) then
writeln('Max = ',d,', Min = ',a);
readln;
END.
Задача легкая, но блин, пришлось подумать...
<span>x = 1250
a = x div 8 = 1250 div 8 = 156
b = a mod 10 div 3 = 156 mod 10 div 3 = 6 div 3 = 2</span>
1) Переведем скорость в кб/с. 2 621 440 бит/с=320 кб/с
Файл размером 10 Мб или 10240 Кб будет передаваться 32 секунды
2)Переведем скорость 256 000 бит/с=32 кб/с
10 мин=600 с. Значит наибольший файл будет иметь размер 19200 Кб
3)Не знаю
