Какие правила необходимо соблюдать при работе с программой Sketch Up

1.y=m1*m2/Sqr(r)

2. Program my;

var S,a,b,h:real;

begin

write('Введите длины оснований и высоты');

readln(a,b,h);

S:=(a+b)*h/2;

readln(S);

end.

3. Program my;

var a:integer;

begin

writeln('Введите трехзначное число');

readln(a);

If (a mod 10=7) then write('Данное число заканчивается на 7');

else write('Данное число не заканчивается на 7');

end.

4.Program my;

var a,b,:integer;

begin

readln(a,b);

If (a>b) then writeln(Sqr(a), b+10);

If (a=b) then writeln('Числа равны');

If (a<b) then writeln(Sqr(b), a+10);

end.

5. 

Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.

Вариант 1 (если скорость 29 кбайт/сек

1) 50 × 96 = 4800 символов в сообщении которое будем передавать

2) 4800 × 1 байт = 4800 байт информационный объем передаваемого сообщения

3) 29 Кбайт / сек = 29696 байт / сек - скорость передачи данных

4) 4800 / 29696 = 1,62 сек потребуется для передачи сообщения со скоростью 29 Кбайт/сек

Вариант 1 (если скорость 29 кбит/сек

1) 50 × 96 = 4800 символов в сообщении которое будем передавать

2) 4800 × 1 байт = 4800 байт = 38400 бит информационный объем передаваемого сообщения

3) 29 Кбит / сек =  29696 бит / сек - скорость передачи данных

4)  38400 / 29696 = 1,29 сек потребуется для передачи сообщения со скоростью 29 Кбит/сек