1) Маша
2) Молодец
3) Молоток
4ое у меня не прогружается
var
v,a,b,c: real;
begin
writeln ('введи длину, ширину и высоту коробки');
read (a,b,c);
v:=a*b*c;
writeln ('объем коробки равен', v);
end.
Функция
360 Total Security
Облачная защита
+
+
—Исправление системы
+
——Песочница
+
+
—Безопасные покупки в Интернете
+
——Защита веб-камеры
+
——Защита от кейлоггеров
+
+ (**)
+ (**)
Менеджер паролей
——+
Защита съемных носителей
+
+
+
Брандмауэр
+
——Защита реестра
+
——Поведенческая блокировка
+
——Исправление уязвимостей
+
——Проверка безопасности Wi-Fi
+
——Очистка временных файлов
+
——Оптимизация системы
+
——Защита браузера
+
+ (*)
+
Блокировка отслеживания через браузер
—+ (*)
Безопасный просмотр
—+ (*)
—Сравнение цен
—
Rain[i] - массив с количеством осадков в i-тый день, 0 - если их не было
var rain: array [1..10] of integer;
i, k:integer;
begin
k := 0;
for i := 1 to 10 do
if rain[i] = 0 then k := k+1;
if k = 5 then writeln('Да, без осадков было ровно 5 дней');
end.
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);
<span>end.</span>