Var k,i:integer;
begin
write ('Введите количество повторений: ');
readln (k);
for i:=1 to k do
writeln ('ПРИВЕТ!!!')
end.
Объяснение: Составляешь схему А потом с этой схемы берёшь данные и вставляешь в программу.
Var
a: real;
k: integer;
begin
k:= 0;
repeat //цикл repeat выполняется до тех пор, пока не будет введено число 15
writeln('Введите число');
readln(a);
k:= k + 1;
until a = 15;
writeln('15k = ', 15 * (k - 1)); { (k - 1) чтобы в подсчете введенных чисел не учитывалось само число 15}
end.
Порядок действий:
1 Отрицание-инверсия(не, обозначается - )
2Действия в скобках
3 Конъюнкция-умножение(и, обозначается&)
4 Дизъюнкция-сложение(или, обозначается галочкой)
истина-1,ложь-0
например:
1галочка0&1 следуя по всем законам математики, сначала выполняется умножение т.е & значит 0*1=0, а затем выполняем сложение(галочка) 1+0=1 следовательно ответ истина
1) 1&0=0-ложь
2)1 галочка0=1-истина
3) не 1 галочка 0 - 0+0=0-ложь
4)1 & 0 галочка 1=1*0+1= 1-истина
5)1 галочка 0&1=1+0*1=1-истина
6)не1 галочка 0 &1=0+0*1=0-ложь
7)(1галочка0) &(1галочка0)=(1+0)*(1+0)=1*1=1-истина
8)не(1галочка0) & (1галочка0)=не(1+0)*(1+0)=не1* 1=0*1=0-ложь
9)не(1&0&1)=не(1*0*1)=не(0*1)=не0=1-истина
Стихотвореное описание модель транспортных путей тихого окна
