Предмет: Информатика,
автор: Аноним
Помогите плиз решить!
1.С помощью repeat напишите программу,которая требует у вас пароль,например 111. Если пароль правильный,то заполняет все строки экрана сообщением "Молодец". Если после пятой попытки пароль всё равно неверен,выходит из программы.( я составил программу,но как ограничить её 5-ю попытками,не знаю).
2.Составьте программу,вычисляющую А*В,не пользуясь операцией умножения. А и В любое натуральное число.
3.Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется одна бактерия. Составьте программу,которая рассчитывает количество бактерий на заданное вами целое значение момента времени(15 минут,7 минут и т п.)
4. В 1202г. Итальянский математик Леонард Пизанский (Фибоначчи) предложил такую
задачу: пара кроликов каждый месяц дает приплод – двух кроликов (самца и самку), от
которых через два месяца уже получается новый приплод, Сколько кроликов будет через год,
если в начале года имелась одна пара? Согласно условию задачи числа, соответствующие
количеству кроликов, которые появляются через каждый месяц, составляют
последовательность 1, 1, 2, 3, 5, 8, 13, 21, 37, … Составьте программу, позволяющую найти
все числа Фибоначчи, меньшие заданного числа N.
Ответы
Автор ответа:
0
var X,n: integer;beginn:=0;repeat Write ('Значение X= '); Readln (X); if X <> 111 then//until X = 111;Writeln ('Пароль неверный!')else writeln('Молодец!');inc(n);
until (x=111) or (n=5);if n=5 then writeln('Максимум 5 попыток');end.
until (x=111) or (n=5);if n=5 then writeln('Максимум 5 попыток');end.
Приложения:
Автор ответа:
0
это комент
Автор ответа:
0
//until x=111; --- это удали
Автор ответа:
0
хорошо
Автор ответа:
0
Получилось?
Автор ответа:
0
да) спасибо) а то учителя фиг объяснят...-_-
Автор ответа:
0
Вторая задача
var a,b,i,sum:integer;beginread(a,b);for i:=1 to b do begin inc(sum,a); end;writeln(sum);end.
Третья задача.
var a,b,i,sum:integer;beginwriteln('Cколько минут прошло?');read(a);sum:=1;for i:=1 to a do begin inc(sum,sum); end;writeln(sum);end.
Четвертая задача
var a,i,x:integer; fibb:array [0..1000] of integer;beginread(a);fibb[0]:=1;fibb[1]:=1;i:=2;while fibb[i-1]<a do begin fibb[i]:=fibb[i-1]+fibb[i-2]; inc(i); end;x:=i;for i:=1 to x-2 do beginwrite(fibb[i],' ');end;end.
var a,b,i,sum:integer;beginread(a,b);for i:=1 to b do begin inc(sum,a); end;writeln(sum);end.
Третья задача.
var a,b,i,sum:integer;beginwriteln('Cколько минут прошло?');read(a);sum:=1;for i:=1 to a do begin inc(sum,sum); end;writeln(sum);end.
Четвертая задача
var a,i,x:integer; fibb:array [0..1000] of integer;beginread(a);fibb[0]:=1;fibb[1]:=1;i:=2;while fibb[i-1]<a do begin fibb[i]:=fibb[i-1]+fibb[i-2]; inc(i); end;x:=i;for i:=1 to x-2 do beginwrite(fibb[i],' ');end;end.
Приложения:
Похожие вопросы
Предмет: Математика,
автор: safiamasmilova
Предмет: Қазақ тiлi,
автор: hyakkimaru65
Предмет: Английский язык,
автор: mansurumirzakov222
Предмет: Геометрия,
автор: svz1446
Предмет: Математика,
автор: chniva