<span>оператор цикла с заданным числом повторений</span>
var
i, b:integer;
begin
write('b = ');
readln(b);
for i := 10 to b do
writeln(i, ' * ', i, ' = ', i*i);
readln;
end.
//вторая задача
var
a, b, i:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i := a + 1 to b - 1 do
write(i, ' ');
readln;
end.
<span>3. Вибрати значок програми<span>
</span><span>1. Увімкнути живлення монітора та системного блока</span><span>
</span><span>6. Дочекатися завантаження вікна програми</span><span>
</span><span>4. Дочекатись, доки вказівник миші набере вигляду
стрілки</span><span>
</span><span>5. Двічі клацнути кнопкою миші</span><span>
</span><span>10. Клацнути на кнопці ПУСК</span><span>
</span><span>9. Дочекатись, доки вікно програми закриється</span><span>
</span><span>11. Обрати кнопку ЗАВЕРШЕННЯ РОБОТИ</span><span>
</span><span>12. Дочекатись, поки індикатор на системному блоці
не погасне</span><span>
</span><span>7. У вікні програми виконати вказівку ЗАКРИТИ</span><span>
</span><span>2. Дочекатись, доки відобразиться РОБОЧИЙ СТІЛ</span><span>
</span><span>8. <span>Якщо не передбачено окремого способу завершення
роботи програми, натиснути Закрити.</span></span></span>
Значок ,мой компьютер ,для работы и находки файлов вашего компьютера ,корзина для удаления файлов ,браузер для входа в интернет
Program gt;
var y,x:real;
begin
x:=0.5;
while x<3 do
begin
x:=x+0.5;
y:=sqrt(x+2*x(x-5));
writeln(y);
end;
end.