1) размер по диагонали - Не влияет, т.к. может быть маленький экран и плохая картинка или большой экран и хорошая.
Алгоритм содержит цикл с предусловием. Цикл выполняется до тех пор, пока b≠5. Начальное значение b=10, а в теле цикла b уменьшается каждый раз на 1, т.е. цикл будет выполнен для b=10,9,8,7,6 - пять раз.
В цикле переменная с накапливает сумму значений b, следовательно по окончании цикла с = 10+9+8+7+6 = 40
Ответ: 40
Type Point=record
x: integer;
y: integer;
end;
var p1, p2, p3, p4 : Point;
function length(p1, p2 : Point) : real;
begin
length := sqrt(sqr(p1.x - p2.x) + sqr(p1.y - p2.y));
end;
Begin
readln(p1.x, p1.y);
readln(p2.x, p2.y);
readln(p3.x, p3.y);
readln(p4.x, p4.y);
if (length(p1, p2) = length (p3, p4)) and (length(p3, p2) = length (p1, p4)) then
writeln('P = ', abs(2 * (length(p1, p2) + length(p3, p2)) ))
else writeln('No');
End.
F1 = 6 Mбайт =2*3 *2^23 бит= 3*2^24 бит
V1=2^19 бит/с
V2=2^14 бит/с
F2=256=2^8 Кбайт=2^21 бит
------------------------------------------------
t1=2^21 :2^19 =2^2 =4 сек - время, за которое Толя скачает 256 Кбайт
t2=3*2^24 : 2^14 =3*2^10=3072 сек - Миша скачает все 6 Мбайт
t=t1+t2=4+3072=3076 cекунд - общее время ответ 3076
Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.
