с клавиатуры вводится последовательность натуральных чисел, оканчивающихся числом 0. количество чисел в последовательности неизвестно. программа должна вывести на экран четные числа из этой последовательности, которые не меньше 50.
Для перевода чисел из десятичной системы счисления в двоичную используют так называемый "алгоритм замещения", состоящий из следующей последовательности действий:Делим десятичное число А на 2. Частное Q запоминаем для следующего шага, а остаток a записываем как младший бит двоичного числа. Если частное q не равно 0, принимаем его за новое делимое и повторяем процедуру, описанную в шаге 1. Каждый новый остаток (0 или 1) записывается в разряды двоичного числа в направлении от младшего бита к старшему. Алгоритм продолжается до тех пор, пока в результате выполнения шагов 1 и 2 не получится частное Q = 0 и остаток a = 1Пример: 35(в десятичной) 35/2=17 35-2*17=1 17/2=8 17-2*8=1 8/2=4 8-2*4=04/2=2 4-2*2=0 2/2=1 2-2*1=0 1/2=0 1 записываем число снизу вверх:100011 35=100011
{Кратность 5ти} var i, i1: integer; begin readln(i1); for i:=0 to i1 do if (i mod 5 = 0) then writeln(i, ': ', sqr(i)) else writeln(i, ': не кратно пяти'); end.
{ Больше 15-ти } var i, b, c: integer; begin for i:=1 to 15 do begin readln(b); if (b > 15) then c := c + 1; end; writeln(c); end.
const N=5; //Любое кол-во:) var a: real; i, count: integer; begin for i:=0 to N-1 do begin readln(a); if (a > 0) then count := count + 1; end; writeln(count); end.
Begin
var a := new Stack<integer>;
var input:integer;
Read(input);
while(input<>0) do
begin
if (input mod 2 = 0) and (input > 50) then
a.Push(input);
Read(input);
end;
a.Println;
end.