1. program primer; //имя программы вроде(необязательно)
var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.
i, s: integer; //Объявление двух целочисленных переменных
begin //начало
randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)
for i:= 1 to 10 do //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
for i:= 1 to 10 do //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
s:=0; //Переменной для суммы присваивается 0
for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива
write('сумма = ',s); //вывод сообщения и значение переменной s
end. //конец
2. Дан массив 16 1 8 2 4 4
к=0
со 2 по 6 делаем
если A[i-1] >=A[i] , делаем к=к+1
1 итерация: если A1>=A2 (A1=16, A2=1, 16>1, значит к=к+1 = 1)
2 итерация: если A2>=A3 (A2=1, A3=8, 1>8? нет, значит к остается прежним)
3 итерация: 8>2? да к=2
4 итерация: 2>4? нет к=2
5: 4>=4? да к=3
выводим к=3
Во вложении приведен рисунок, из которого видно принятое расположение треугольника. Треугольник прямоугольный и уравнение его гипотенузы можно получить из формулы уравнения прямой в отрезках. Алгоритм решения следующий. 1. Вводим значения a и b. 2. Очищаем переменную счетчика количества k нулём. 3. В цикле по х от 0 с шагом 1 до целой части b: - вычисляем целую часть y, найденного из приведенного уравнения - увеличиваем k на эту целую часть плюс 1 4. Выводим значение k.
Проверим этот алгоритм для нашего рисунка. a=3, b=4, y=³/₄(4-x), k=0 Для х=0 получаем у=3 и увеличиваем k на 3+1=4, т.е. k=4 Для х=1 получаем у=2.25, целая часть 2 и увеличиваем k на 2+1=3, т.е. k=7 Для х=2 получаем у=1.5, целая часть 1 и увеличиваем k на 1+1=2, т.е. k=9 Для х=3 получаем у=0.75, целая часть 0 и увеличиваем k на 0+1=1, т.е. k=10 Для х=4 получаем у=0, целая часть 0 и увеличиваем k на 0+1=1, т.е. k=11 Значение 11 выводим. Из рисунка видно, что точек действительно 11.
1. Современное решение
// PascalABC.NET 3.2, сборка 1425 от 22.04.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b:real; Write('Введите значения a и b через пробел: '); Read(a,b); Writeln(Range(0,Trunc(b)).Select(x->Trunc(a/b*(b-x))+1).Sum) end.
Контрольный пример Введите значения a и b через пробел: 3 4.0 11
2. Школьное решение в стиле ТурбоПаскаль 1983г.
var a,b,y:real; k,x:integer; begin Write('Введите значения a и b через пробел: '); Read(a,b); k:=0; for x:=0 to Trunc(b) do begin y:=a/b*(b-x); k:=k+Trunc(y)+1 end; Writeln(k) end.
У меня получилось кратчайшей дорогой АДВ это 18
Объяснение: