Записывает количество разрядов числа, о-один, д - два, п- пять. Со словами таких операции проводить не может
Vari:integer;
c:real;
begin
readln(c);
Repeat
i:=i+100;
writeln(i,'g: ',c*0.001*i);
until i>=2000
<span>end.</span>
Текстовый алгоритм
Есть снег для лепки снеговика?
Нет - выполнение невозможно.
Есть, то:
слепить три разновеликих шара;
установить шары друг на друга в порядке убывания;
сверху установить ведро дном вверх;
в центр верхнего шара установить морковь, над ней два уголька-глаза;
по бокам среднего шара вставить веточки-ручки.
Фигуры блок-схемы
Последовательность фигур может меняться в зависимости от требуемых условий и действий:
овал - обозначает начало блок-схемы и содержит само слово "начало" - ограничивающий символ;
параллелограмм - символ ввода-вывода данных;
прямоугольник обозначает действие - символ выполнения операции;
ромб - фигура, содержащая условие, после которой происходит ветвление алгоритма - символ принятия решения;
круг используется при разрыве записи блок-схемы;
прямоугольник с удвоенными боковыми сторонами обозначает применение подпрограммы - символ повторяемости процесса;
заканчивается запись блок-схемы всегда овалом, который содержит слово "конец".
Порядок выполнения действий указывается линиями.
Блок-схема создания снеговика
Алгоритм создан при идеальных условиях:
если снег есть, то возможно скатать шары для снеговика;
в наличии есть ведро-шапка, морковь-нос, угольки и подходящие веточки;
никто не разрушает созданные фигуры.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var i := a.IndexMin;
Println('Минимальный элемент', a[i], 'имеет номер', i + 1)
end.
Program zadacha;varN,s,a : longint;beginwriteln('vvedite chislo: ');readln(n);writeln('vvedite k');readln(a);s := 0;while n <> 0 dobegins := s + (n mod 10);n := n div 10;end;if (s mod a) = 0 thenwriteln('kratna')elsewriteln('net');end.