Написать на паскале программу. ученик бежит по кругу. на старте стоит тренер и пред каждым новым кругом спрашивает ученика: "пробежишь ещё кружочек? ". подсчитать колличество кругов.

👇

Ответ:

cmh3

31.12.2021

Var k,ans:integer;
begin
k:=0;
write('Пробежишь кружочек? (1-да, 0-нет) ');
readln(ans);
while ans=1 do
begin
k:=k+1;
write('Пробежишь ещё кружочек? (1-да, 0-нет) ');
readln(ans);
end;
writeln('k = ',k);
end.

Пример:
Пробежишь кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 0
k = 3

4,4(55 оценок)

Открыть все ответы

Ответ:

annfeed17082005

31.12.2021

Наступает век современных технологий. Например, книгу, которую раньше мы должны были искать в магазине или библиотеке, теперь можно легко найти в Интернете. Ниже будут приводиться сравнения между книгой (и прочими "бумажными" ресурсами) и электронной страницей:
- Чтобы потерять книгу, достаточно просто где-нибудь её забыть. В троллейбусе, в гостях, на работе. А может, вы уронили её в лужу? Вряд ли после такого получится восстановить её содержимое и читать её с прежним удовольствием. При той же ситуации с электронными образовательными ресурсами (далее ЭОР) можно просто скачать копию страницы уже на новое устройство и продолжить изучение. Если речь идёт о каком-то онлайн обучении, то тут всё ещё проще.
- Использование ЭОР вместо печатных изданий выгоднее в плане экологии. Чисто в перспективе, чем больше людей будет предпочитать ЭОР обычным книгам, тем меньше будет спрос на эти книги. А значит, меньше поводов вырубить лишнее дерево.
- В большинстве случаев ЭОР обновляется гораздо чаще, нежели энциклопедии. Руководствуясь Интернетом, мы будем получать гораздо больше свежих и актуальных знаний, нежели читая только книги. Очевидно, несколько часов, проведённых в Интернете на образовательных сайтах, дадут человеку больше знаний, чем наши прапрадеды копили всю жизнь.
- Доступно. Большинство курсов абсолютно бесплатны, причём зачастую из них можно получить больше знаний, чем из обычной книги.

Вывод: Сегодня всё больше и больше людей находят, что электронные версии текста лучше бумажных. Тем не менее, не стоит забывать, благодаря чему наши предки подарили нам Всемирную паутину.

4,4(76 оценок)

Ответ:

rfrfrfrfe

31.12.2021

1.
var i,N,c: integer;

var a: array of integer;

var b: array of integer;

begin

c:=0;

readln(N);

Setlength(a,N);

setlength(b,N);

for i:=0 to a.Length-1 do

begin

readln(a[i]);

if a[i] >0 then

begin

b[c]:=a[i];

c:=c+1;

end;

end;

Setlength(b,c);

write(b);

end.

2.

var N,M: integer;

type a = array of array of integer;

var matr: a;

function CreateMatrix(N,M: integer): a;

begin

SetLength(Result,N);

for var i:=0 to N-1 do

SetLength(Result[i],M);

end;

procedure FillMatrByRead(matr: a);

begin

for var i:=0 to matr.Length-1 do

for var j:=0 to matr[0].Length-1 do

readln(matr[i,j]);

end;

procedure WriteMatrix(matr: a);

begin

for var i := 0 to matr.Length-1 do

begin

for var j := 0 to matr[0].Length-1 do

write(matr[i,j]:3);

writeln;

end;

end;

procedure MatrixZero(matr: a);

begin

for var i := 0 to matr.Length-1 do

begin

for var j := 0 to matr[0].Length-1 do

if (matr[i,j] = 0) then

write('matr','[',i,',',j,']');

writeln;

end;

end;

begin

readln(N,M);

matr:= CreateMatrix(N,M);

FillMatrByRead(matr);

WriteMatrix(matr);

MatrixZero(matr);
end.

4,6(5 оценок)

Это интересно:

Праздники-и-традиции

12.08.2021

Как сделать День Святого Валентина особенным с ограниченным бюджетом...

Компьютеры-и-электроника

05.06.2020

Как обновить приложение на Android: Инструкция от профессионалов...

Семейная-жизнь

05.11.2021

Как увеличить амниотическую жидкость...

Здоровье