Есть три любых числа, можете взять любые. напишите программу для паскаля, которая выведет количество чисел, кратных 5. (упоминается, что можно ввести ещё одну переменную для решения; ) !
Информационные модели представляют объекты и процессы в образной или знаковой форме, а также в форме таблиц, блок-схем, графиков и т. д. Образные модели (рисунки, фотографии и др. ) представляют собой зрительные образы объектов, зафиксированные на каком-либо носителе информации (бумаге, фото- и кино- плёнке и др.) . Широко используются образные информационные модели в обучении, где требуется классификация объектов, по их внешним признакам (вспомните учебные плакаты по ботанике, биологии и физике) . Знаковые информационные модели строятся с использованием различных языков (знаковых систем) . Знаковая информационная модель может быть представлена в форме текста (например, программы на языке программирования) или формулы (например, второго закона ньютона) . Иногда при построении знаковых информационных моделей используются одновременно несколько различных языков. Примерами таких моделей могут служить чертежи, электрические и логические схемы, географические карты, блок-схемы алгоритмов, графики и диаграммы и др. Во всех этих моделях используются одновременно как язык графических элементов, так символьный язык.
Uses crt; Var i,j,s:integer; a:array[1..5,1..10] of integer; Begin for i:=1 to 5 do begin for j:=1 to 10 do begin random(50); a[i,j]:=random(50); write(' '); write(a[i,j]); if i=1 then begin s:=s+a[i,j]; end; end; writeln end; writeln(s); end.
Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...
![Как найти сумму элементов 1 строки? program sbb; uses crt; var i,j,s: integer; a: array[1..5,1..10]](/tpl/images/0223/5641/fc767.jpg)
program n_1;
var a, b, c: int64;
begin
read(a, b, c);
if a mod 5 = 0 then a:=1 else a:=0;
if b mod 5 = 0 then b:=1 else b:=0;
if c mod 5 = 0 then c:=1 else c:=0;
writeln(a+b+c);
end.
Дополнительных переменных не использовано.