Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.
Если число заканчивается на 5 или 0, то по признакам делимости оно кратно 5.
<u>1. Глупый школьный вариант</u>
Перебираем все числа в заданном диапазоне и если встречаем кратное 5, прибавляем его к сумме.
var
i,s:integer;
begin
s:=0;
for i:=1 to 200 do
if i mod 5=0 then s:=s+i;
Writeln(s)
end.
<em>Результат:</em>
4100
<u>2. Более умный школьный вариант с циклом while</u>
Первое число, кратное 5 - это 5. А дальше прибавляем по 5 к сумме и ничего не нужно проверять.
var
i,s:integer;
begin
i:=5; { первое подходящее число }
s:=i;
while i<200 do begin
i:=i+5;
s:=s+i
end;
Writeln(s)
end.
<u>3. Еще более умный школьный вариант с циклом for</u>
От предыдущего отличается способом получения нужных чисел.
Замечаем, что ряд 5, 10, 15, 20, ... можно получить из чисел 1, 2, 3, 4, ..., умножая их на 5. И таких чисел будет 40.
var
i,s:integer;
begin
s:=0;
for i:=1 to 40 do s:=s+5*i;
Writeln(s)
end.
<u>4. Современный вариант на современном Паскале</u>
Генерируем последовательность нужных чисел и находим сумму её элементов.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(5,200,5).Sum.Println
end.
В 11 строке точку с запятой поставль
сама же ошибка означает то, что синтаксис неверный
expected = ожидалось
При перемещении выделенная область растрового изображения или объект в векторном рисунке удаляются, а их копия помещается в буфер обмена. Затем копия из буфера обмена помещается в область рисования и перетаскивается мышью в нужное место растрового изображения или векторного рисунка.
При удалении выделенная область растрового изображения или объект в векторном рисунке просто удаляются.
При копировании сначала выделяется область растрового изображения или объект в векторном рисунке. Затем копия выделенной растровой области или векторного объекта помещается в специальную область памяти операционной системы, которая называется буфером обмена<span>. Наконец, копия из буфера обмена помещается в область рисования и перетаскивается мышью в нужное место растрового изображения или векторного рисунка.</span>
Складемо алгоритм переходу вулиці.
Алгоритм Перехід
1.Подивитися ліваоруч.
2.Якщо немає перешкоди,то йти до середини вулиці,інакше пропустити машини,йти до середини вулиці.
3.Подивитися праворуч.
4.Якщо немає перешкоди,то завершити перехід,інакше пропустити машини,завершити перехід.
