Program myprogram2;
var
a,h,s:real;
begin
writeln('Введите длину основания a');
write('a = ');
readln(a);
writeln('Введите длину высоты h');
write('h = ');
readln(h);
s:=0,5*a*h;
write(Площадь треугольника с основанием ',a',' и высотой ',h,' равна = ',s);
readln;
readln;
end.
11.13.15.17.19.21.23.25.27.29.31.33.35.37.39.41....(шаг +2)т.е. число все время увел на 2
22.44.66.88.110.132.154...(шаг +22)т.е. число все время увел на 22
91.81.71.61.51.41.31.21.11.1....(шаг -10)т.е. число все время уменьна 10
_____________________________________
<span>23.53.73.83.(в числе 37 окончание на 7, а во всех остальных окончание 3)
</span>и так далее
Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 3. Затем вводишь сами три числа, каждый раз нажимая энтер когда ввел число. Например 12,13,7. Сумма будет 20. Этот код работает также с любым другим количеством чисел, например вводишь 5, затем набираешь пять чисел целых, он считает сумма некратных трем.
var a,n,i,s:integer;
begin read(n);
while i<n do begin
read(a);
if (a mod 3=1) then s:=s+a; i:=i+1;
end;
writeln(s);<span>
end.</span>
1.Поиск учебника.
2.Открытие учебника.
3.Осмотр параграфа в дневнике,который нужно выучить в учебнике.
4.Открытие нужного параграфа.
5.Чтение параграфа от начала и до конца.
6.Вслух рассказать про то,что прочитал.
7.Перечитать параграф еще раз.
8.Закрыть учебник.
1 байт - 8 бит
80000 бит/с = 10000 байт/с
1 Кбайт - 1024 байт
10000 байт * 50с = 500000 байт(за 50 с )
Дальше сам,данные есть,решай по формуле S=tV (V -скорость)