<span>Вот тебе программа, блок схему по ней составь сам, это не сложно. А что за таблица - хз, видать тоже сам будешь заполнять
Var
r: Real;
begin
Write('Введите радиус: ');
Readln(r);
Writeln('Длина окружности: ',2*pi*r:2:2);
Writeln('Площадь круга: ',pi*Sqr(r):2:2);
end<span>.</span></span>
Ну если уменьшение неопреденности знаний в два раза - 1 бит. то n будет равно 2
44
У нас есть цикл, который звучит как (пока s<=250). Изначально s=15. После мы запускаем данный цикл, и в каждом шагу добавляем 12 до тех пор, пока s не станет больше 250. И во время каждого шага мы к переменной n (изначальна равна 4) прибавляем 2. В конце программы мы выводим n.
Надеюсь я понятно объяснил. Если что-то не понятно - спрашивайте.
Это интернет,книга,технологии.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10000); a.Println;
a:=a.Where(x->not ((x mod 10<>0) and (x mod 10).IsEven
and (x mod (x mod 10)=0))).ToArray;
a.Println
end.
<u>Пример</u>
1266 6274 1359 3481 9554 324 1546 3063 8166 1562
6274 1359 3481 9554 1546 3063