Http://ideone.com/H6W5HJ программа на Паскале.
при x=1 a =<span>6.41411200080599E+001
</span> +Блок-схема.
Действия:вырасти,согреть,покрасить,проехать
Ответ:
Объяснение:матиндеги гиперсилтеменин колдану максаты: бул силтеме аркылы биз www.text.ru сайтындагы антиплагиат батырмасына карай отемиз
Var a: string;
s: integer;
begin
s := 0;
write ('Привет! Введи пароль: ');
readln (a);
while a<>'qwerty' do
begin
s := s+1;
write ('Не угадал! Введи пароль: ');
readln (a)
end;
writeln ('Теперь пароль введён верно! Количество попыток: ',s)
end.
Var n,d,a1,a0,i:integer;
begin
writeln('d=');
read(d);
writeln('n=');
read(n);
writeln('a1=');
read(a1);
a0:=a1;
for i:=2 to n do
a0:=a0+d;
writeln('Сумма равна');
writeln(a0);
<span>end.
.</span>