Составьте программу запроса пароля , пока не будет введён пароль верно . в программе предусмотреть счётчик неправильных вода поролев . програма с циклом пост условия
Var k:integer; a:string; begin repeat writeln('Введите пароль'); readln(a); if a<>'Пароль' then k:=k+1; until a='Пароль'; writeln('Пароль принят'); writeln('Число неверных попыток - ',k); readln end.
В России пользователи чаще всего называют символ @ собакой, из-за чего адреса электронной почты, образованные от личных имен и фамилий, приобретают иной раз слегка обидное звучание. Справедливости ради надо отметить, что в России этот знак называют также собачкой, лягушкой, плюшкой, ухом, бараном и даже крякозяброй. Пользователям Интернета в других странах нравятся самые разные названия для знака @. В Японии – «значок а» , в Болгарии – «а обезьянье» , в Голландии – «обезьяний хвост» , в Финляндии – «кошкин хвост» , во Франции – «улиточка» , в Венгрии – «гусеничка» , «червячок» , «поросячий хвостик» , в Израиле – «штрудель» , в Китае – «мышонок» , в Норвегии – «канельболле» (спирально закрученная булочка с корицей, то есть плюшка) . В Германии знак дословно называют «обезьяна с цепким хвостом» , но немецкое слово Klammeraffe имеет также второе, переносное, значение: так называют пассажира на мотоцикле, сгорбившегося на втором сиденье за спиной водителя. В Швеции и Дании символ @ сравнивают с хоботом слона, а в Испании – со спиралеобразной конфетой, популярной на острове Майорка. Даже на международном языке эсперанто символ электронной почты получил свое название: «улитка».
1. Ряд строится по принципу золотого сечения. Формула для вычисления члена последовательности такая: x(2)=x(1)+1, x(3)=x(2)+2, ... x(n)=x(n-1)+n-1
В нашем алгоритме для вычисления следующего члена последовательности будем запоминать текущий член последовательности в переменной kp. Затем получаем очередной член последовательности суммируя kp и переменную цикла i - 1. Делаем вычисления, выводим на экран и переписываем переменную kp новым значением.
var i,k,kp:integer; begin kp:=1; for i:=1 to 10 do begin k:=kp+i-1; kp:=k; writeln(k:5, k*k:6, k*k*k:8); end; end.
begin
repeat
writeln('Введите пароль');
readln(a);
if a<>'Пароль' then k:=k+1;
until a='Пароль';
writeln('Пароль принят');
writeln('Число неверных попыток - ',k);
readln
end.