Const
start=12; //наименьшее подходящее число
max=100; //первое число, идущее после всех двузначных
step=3; //разность между подходящими числами
var
x,i:integer;
begin
x:=start;
i:=0;
while x<max do begin
i:=i+1;
x:=x+step;
end;
writeln('Количество искомых чисел: ',i);
end.
В том, что каждый кадр, рисуется отдельно, потом скомпановывается в один файл.
Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
Для перевода целого десятичного числа в двоичную систему счисления нужно последовательно выполнять деление данного числа и получаемых целых частных на 2 до тех пор, пока не получим частное, равное нулю