Составьте сводную таблицу «азбука безопасного интернета». напишите в первом столбце заголовок «нужно», во втором столбце – заголовок «нельзя». в строчках запишите 7 самых важных правил безопасности поведения подростков в сети интернет.
Repeat — это цикл с пост условием то есть в первый раз всё равно выполнится. Теперь разберём цикл, он будет выполнять это действие
(p:=p*0.1) пока (p) не станет меньше 0.1 , теперь работаем в теле цикла, (p) изначально равен двум по этому получаем p:=1*0,1; получаем p:=0,1 проверяем условие 0,1<0,1 нет повторяем второй раз цикл, теперь p:=0,1 а не 1 как было в первый раз p:=0,1*0,1 p:=0,01 проверяем условие
0,01<0,1 да меньше цикл прерывается и (p) остаётся равным 0,01
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadSeqIntegerWhile(x->x<=100).ToArray; Writeln('Количество четных чисел равно ',a.Where(x->x.IsEven).Count); a.Transform(x->x.IsOdd?x*x:x); a.Println end.
Пример 35 24 38 83 110 Количество четных чисел равно 2 1225 24 38 6889
begin Writeln('S=',ReadSeqIntegerWhile(x->x>=0).Select(x->x mod 10).Sum) end.
Пример 16 24 19 21 45 0 23 -21 S=28
begin var n:=ReadInteger('n='); var St:=new Stack <integer>; while n>0 do begin St.Push(n mod 10); n:=n div 10 end; var a:=St.ToArray; a.Println(','); Writeln('Сумма цифр: ',a.Sum); Writeln('Сумма нечетных цифр: ',a.Where(x->x.IsOdd).Sum); Writeln('Сумма старшего и младшего разрядов: ',a.First+a.Last); end.
Пример n= 53214212 5,3,2,1,4,2,1,2 Сумма цифр: 20 Сумма нечетных цифр: 10 Сумма старшего и младшего разрядов: 7
Я тебе дал,а ты сам подумай)
Объяснение:
Repeat — это цикл с пост условием то есть в первый раз всё равно выполнится. Теперь разберём цикл, он будет выполнять это действие
(p:=p*0.1) пока (p) не станет меньше 0.1 , теперь работаем в теле цикла, (p) изначально равен двум по этому получаем p:=1*0,1; получаем p:=0,1 проверяем условие 0,1<0,1 нет повторяем второй раз цикл, теперь p:=0,1 а не 1 как было в первый раз p:=0,1*0,1 p:=0,01 проверяем условие
0,01<0,1 да меньше цикл прерывается и (p) остаётся равным 0,01
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqIntegerWhile(x->x<=100).ToArray;
Writeln('Количество четных чисел равно ',a.Where(x->x.IsEven).Count);
a.Transform(x->x.IsOdd?x*x:x); a.Println
end.
Пример
35 24 38 83 110
Количество четных чисел равно 2
1225 24 38 6889
begin
Writeln('S=',ReadSeqIntegerWhile(x->x>=0).Select(x->x mod 10).Sum)
end.
Пример
16 24 19 21 45 0 23 -21
S=28
begin
var n:=ReadInteger('n=');
var St:=new Stack <integer>;
while n>0 do begin
St.Push(n mod 10);
n:=n div 10
end;
var a:=St.ToArray;
a.Println(',');
Writeln('Сумма цифр: ',a.Sum);
Writeln('Сумма нечетных цифр: ',a.Where(x->x.IsOdd).Sum);
Writeln('Сумма старшего и младшего разрядов: ',a.First+a.Last);
end.
Пример
n= 53214212
5,3,2,1,4,2,1,2
Сумма цифр: 20
Сумма нечетных цифр: 10
Сумма старшего и младшего разрядов: 7