Program YaBidlo;
Var
i, A: longint;
x,
u, j,
N, m : longint;
Function FDiv (A, left : LongInt) : LongInt;
var
d,
i : longint;
begin
d := 1;
for i := left to Trunc (Sqrt (A)) do
if (A mod i = 0)
then
begin
d := i;
Break;
end;
if (d <> 1)
then
FDiv := d
else
FDiv := A;
end;
Function g (N, u : longint) : longint;
var
i : longint;
begin
i := 0;
while (N mod u = 0)
do
begin
Inc (i);
N := N div u;
end;
g := i;
end;
Begin
Assign (Input, 'input.txt');
Assign (Output, 'output.txt');
Reset (Input);
Read (A);
Close (Input);
m := 0;
N := 1;
i := FDiv (A, 2);
u := 2;
while (A > 1)
do
begin
N := N * i;
j := 0;
while (A mod i = 0)
do
begin
Inc (j);
A := A div i;
end;
if (j > m)
then
begin
m := j;
u := i;
end;
i := FDiv (A, i + 2);
end;
x := 1;
while (g (N * x, u) * N * x < m)
do
Inc (x);
N := N * x;
ReWrite (Output);
Write (N);
Close (Output);
End.
#include <iostream>
using namespace std;
int main()
{
int n, ans = 1;
cin >> n;
int i;
for(i = 0; i <= n; i += 5)
ans *= 4;
cout << ans / 4;
}
<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>
Для перехода к слайду нужнo b) apply to all sides
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
