Я смог решить только 7
program nomer;
var a,n,x:integer;
begin
while n<=0 do
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then a:=a+x;
writeln('хотите закончить ввод? да=1, нет=0');
readln(n);
end;
writeln(a);
end.
И=0₁₀=0₂<span>
Д=1</span>₁₀=1₂<span>
Т=2</span>₁₀=10₂<span>
О=3</span>₁₀=11₂<span>
X=4</span>₁₀=100₂
ТИХОХОД=10 0100 1110 0111<span>₂=24E7</span>₁₆
Разделить на секунды а число?????!!!
У сучасному світі виникла велика кількість нових явищ, які мають на людину великий вплив. Одним з таких є інтернет. Інтернет, напевно, став займати дуже важливе місце в житті кожної людини. Він стосується всього, що має відношення до будь-якої інформації або обміну нею. В інтернеті сьогодні сидять усі – починаючи від школярів і закінчуючи людьми похилого віку, він корисний для всіх. Однак далеко не факт, що інтернет дає одну лише користь. До всіх явищ, в тому числі і самих корисних, слід ставитися з належною часткою критики, тому я пропоную розглянути ризики, пов’язані з впливом інтернету на людину.
По-перше, є чисто фізіологічний ризик. Інтернет вимагає уваги, а увагу далеко не так просто приділити, якщо ти знаходишся в русі. Отже, інтернет змушує тебе сидіти на одному місці і не рухатися. А це загрожує виникненням проблем зі здоров’ям. Тому людина не повинна поринати в інтернет з головою. Потрібно залишати місце для активної спортивної діяльності, спілкування з іншими, будь-якого руху. В іншому випадку можна отримати серйозні проблеми і пошкодувати про те, що проводив так багато часу за комп’ютером.
Var
i,n:integer;
a:array[1..4] of integer;
begin
Write('n='); Read(n);
for i:=1 to 4 do begin
a[5-i]:=n mod 10;
n:=n div 10
end;
Writeln(a[4]*1000+a[3]*100+a[2]*10+a[1]);
Writeln(a[3]*1000+a[4]*100+a[1]*10+a[2]);
Writeln(a[2]*1000+a[1]*100+a[4]*10+a[3]);
Writeln(a[1]*1000+a[3]*100+a[2]*10+a[4])
end.
Пример
n=7048
8407
4870
784
7408