III х Безопасность в сети Интернет. Урок 2 Алёна на праздник весны получила письмо о том, что стала победителем в розыгрыше мобильных телефонов. Для получения приза её просят отправить личные данные. Можно ли ей это делать? Нет зависит от того нужен ли ей
Var p, q: longint; n, i, j, c: integer; begin // 1 write('n=');readln(n); for i := 1 to n do begin q := 1; for j := 1 to i do q := q * i; p := p + q; end; writeln ('Значение = ', p);
// 2 write('Число годовых оценок=');readln(n); p:=0; for i := 1 to n do begin write('оценка: '); readln(c); if c = 5 then p := p + 1 else if c = 2 then p := - 1; end; writeln(p > 0);
// 3 n := 20; p := MaxInt; for i := 1 to n do begin write('Введите высоту здания ', i, ': '); readln(c); if c < p then p := c; end; writeln('Минимальная высота: ', p);
//4 n := 20; p := -1; for i := 1 to n do begin write('Введите высоту здания ', i, ': '); readln(c); if c > p then p := c; end; writeln('Максимальное значение высоты: ', p); end.
Var a: array of integer; i, n: integer; begin randomize; n := Random(10) + 1; SetLength(a, n); writeln('Исходный массив'); for i := 0 to n-1 do begin a[i] := Random(10); write(a[i]:5, ' '); end; writeln;
writeln('Возвести в квадрат'); for i := 0 to n-1 do begin a[i] := sqr(a[i]); write (a[i]:5, ' '); end; writeln;
writeln('Заполнить степенями 2'); a[n-1] := 1; for i := n-2 downto 0 do a[i] := a[i+1] shl 1;
for i := 0 to n-1 do write (a[i]:5, ' '); writeln;
writeln ('умножить на 3 во второй половине'); for i := n shr 1 to n-1 do a[i] := (a[i] shl 1) + a[i];
for i := 0 to n-1 do write (a[i]:5, ' '); writeln; end.
ответ:нет
Объяснение:потому что от неизвестного отправителя письмо пришло