Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.
Может быть и неправильно, проверь при переписывании
У сучасному світі виникла велика кількість нових явищ, які мають на людину великий вплив. Одним з таких є інтернет. Інтернет, напевно, став займати дуже важливе місце в житті кожної людини. Він стосується всього, що має відношення до будь-якої інформації або обміну нею. В інтернеті сьогодні сидять усі – починаючи від школярів і закінчуючи людьми похилого віку, він корисний для всіх. Однак далеко не факт, що інтернет дає одну лише користь. До всіх явищ, в тому числі і самих корисних, слід ставитися з належною часткою критики, тому я пропоную розглянути ризики, пов’язані з впливом інтернету на людину.
По-перше, є чисто фізіологічний ризик. Інтернет вимагає уваги, а увагу далеко не так просто приділити, якщо ти знаходишся в русі. Отже, інтернет змушує тебе сидіти на одному місці і не рухатися. А це загрожує виникненням проблем зі здоров’ям. Тому людина не повинна поринати в інтернет з головою. Потрібно залишати місце для активної спортивної діяльності, спілкування з іншими, будь-якого руху. В іншому випадку можна отримати серйозні проблеми і пошкодувати про те, що проводив так багато часу за комп’ютером.
Var
n,i,j,k:integer;
a:array[1..3] of integer;
begin
Randomize;
n:=Random(900)+100;
Writeln(n);
a[1]:=n div 100;
a[2]:=(n div 10) mod 10;
a[3]:=n mod 10;
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
Writeln(a[1],' ',a[2],' ',a[3]);
end.
Пример работы
658
8 6 5