Var k,p:integer;begin readln(k,p);writeln(sqr((k*100)/p):0:0);readlnend.
<span>Графи́ческий <span>интерфе́йс по́льзователя</span></span><span> (</span>ГИП<span>), </span><span>графическийпользовательский интерфейс</span><span> (</span>ГПИ) (<span>англ.</span> <span>Graphical user interface, GUI</span><span>; </span><span>сленг.</span> ГУИ<span>, </span>ГУЙ<span>) — </span>системасредств для взаимодействия пользователя с компьютером<span>, </span>основанная на представлении всех доступныхпользователю системных объектов и функций в виде графических компонентов экрана<span> (</span>окон<span>, </span>значков<span>, </span>меню,кнопок<span>, </span>списков и т. п<span>.). </span>При этом<span>, </span>в отличие от <span>интерфейса командной строки</span><span>, </span>пользователь имеетпроизвольный доступ<span> (</span>с помощью клавиатуры или <span>указательного устройства ввода</span><span>) </span>ко всем видимымэкранным объектам<span> — </span><span>элементам интерфейса</span><span>, </span>а на экране реализуется модель мира в соответствии снекоторой метафорой и осуществляется прямое манипулирование<span>.</span>
Uses Crt;
Var
f:text;
S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
Begin
S:=0;
d:=n div 2;
While d<>0 do
Begin
if n mod d = 0 then S:=S+d;
d:=d-1
End;
if S = n then
Begin
WriteLn(n);
k:=k+1
End
End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:
Самый уродский способ:
string n = Console.ReadLine(); if (n == "1") Console.WriteLine("мы успешно сдали " + n + " экзамен"); Console.ReadKey(); if (n == "2") Console.WriteLine("мы успешно сдали " + n + " экзамена"); Console.ReadKey();
Проверка:
250/8=31, остаток 2
31/8=3, остаток 7
Выписываем результат: 3 7 2 или 372(8)
