EvdokiaNi
29.10.2021 03:27

решить задачи по информатике В языке за В языке за поискового сервера для обозначения логической операции «ИЛИ» в за используется символ |, а для логической операции «И»—символ &. В таблице приведены за и количество страниц, найденных поисковым сервером по этим за в некотором сегменте Интернета:

За Найдено страниц (в тысячах)
История &Море 670
Черное &Море 490
(История | Черное) &Море 820
Какое количество страниц (в тысячах) будет найдено по за История & Черное & Море?

Считается, что все за выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения за В языке за поискового сервера для обозначения логической операции «ИЛИ» в за используется символ |, а для логической операции «И»—символ &. В таблице приведены за и количество страниц, найденных поисковым сервером по этим за в некотором сегменте Интернета:

За Найдено страниц (в тысячах)
Игра & Гитара 830
Уроки & Гитара 920
Игра & Уроки & Гитара 440
Какое количество страниц (в тысячах) будет найдено по за Игра | Уроки) & Гитара?

Считается, что все за выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения за

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
natalijasovap08pz3
11.03.2022 09:34
Var a:array[1..10] of real;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10+random;
write(a[i]:0:2,' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 10 do
begin
if i mod 2 = 0 then a[i]:=a[i]/2;
write (a[i]:0:2,' ');
end;
end.

var a:array[1..7] of integer;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 7 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 7 do
begin
if a[i] mod 10 = 0 then a[i]:=0;
write(a[i],' ');
end;
end.

По теме массив №1 дан массив состоящий из 10 вещественных чисел. преобразовать элементы массива , ст
По теме массив №1 дан массив состоящий из 10 вещественных чисел. преобразовать элементы массива , ст
0,0(0 оценок)
Ответ:
zinovevartem2017
22.03.2023 07:20
Program Sum;

var
  chislo: longint; {число, введенное с клавиатуры}
  tchifra, Summa, n, p: integer;{tchifra - правая цифра}

begin
  Write('введи число: ');
  Readln(chislo);
  Summa := 0;n := 0;p := 1;
  repeat
    tchifra := chislo mod 10; {получили правую цифру}
    Inc(n);
    if tchifra > 0 then p := p * tchifra;
    if tchifra < 3 then Summa := Summa + tchifra;
    chislo := chislo div 10{оставили от числа левую часть}
  until chislo = 0; {выход из цикла, если нет больше цифр}
  Writeln('Количество цифр в числе- ', n);
  Writeln('Сумма цифр, меньших 3- ', Summa);
  Writeln('Произведение цифр, больших нуля- ', p);
  Readln
end.

Тестовое решение:
введи число: 10354
Количество цифр в числе- 5
Сумма цифр, меньших 3- 1
Произведение цифр, больших нуля- 60
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота