Program p1;
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.
CLASS - имя каталога, значит полное - D:\USER\CLASS.
Алг Сумма
нач
цел s,i
s:=0
нц для i от 100 до 300
если mod(i,3) = 0 то
s:=s+i
все
кц
вывод "s = ", s
кон
<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>
Var A,B:real;count:integer;
begin
readln(A,B);
while A<B do
beginA:=A+A/100*15;
count:=count+1;
end;
writeln(count);
<span>end.</span>
