0. Начало 1. Ввод - Гвозди, картина молоток, стена 2. Операция - Прибить гвоздь к стене при молотка 3. Условие - Гвоздь прибит к стене? Нет->Повторить пункт 2; Да->Переходим к пункту 4 4. Повесить картину на гвоздь 5. Конец
Ну это если не заморачиваться с условиями. К примеру можно после 4 пункта поставить условие на проверку положения картины, т.е Картина висит прямо? ->Нет то Действие выровнять положение картины; Да->Конец
UPD: Ещё можно создать условие на состояние гвоздя - погнутый или целый, вытаскивание погнутого гвоздя и т.д.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 procedure MasPrint(a:array[,] of integer; k:integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Write(a[i,j]:k); Writeln end end;
begin var n:=ReadInteger('Задайте число строк/столбцов в массиве:'); var a:=MatrixRandom(n,n,-99,99); Writeln('Исходный массив'); MasPrint(a,4); for var i:=0 to n-1 do for var j:=0 to n-1 do if i=j then a[i,j]:=1 else a[i,j]:=0; Writeln('Результирующий массив'); MasPrint(a,2) end.
18
Объяснение:
Проходим по циклу от 10 до 15 включительно, то есть содержимое будет выполнятся 6 раз.
s изначально равен 0, мы же к нему 6 раз прибавляем 3.
6 * 3 = 18