М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Влад27128
Влад27128
03.06.2021 13:05 •  Информатика

БУДУ ОЧЕНЬ БЛАГОДАРНА!

1. Ниже приведена программа:

var s,k: integer;
begin
readln(s);
readln(t);
if (s < 1) and (t < 2)
then
writeln ('YES')
else
writeln ('NO')
end.
Было выведено 9 запусков программы, при которых в качестве значений переменных вводились следующие пары чисел (s, t):

(3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2).

Сколько было запусков, при которых программа напечатала «NO»? В качестве решения выпишите все пары запусков и напротив каждого укажите вывод: YES или NO. В ответе укажите количество.

2. Составьте программу, выводящую значение вещественной переменной x, равной значению выражения 2(a+b)/a^2,где a и b – целочисленные переменные, их значения вводятся с клавиатуры.

3. Целое положительное число вводится с клавиатуры. Нужно проверить является ли оно четным.

4. Напишите программу, которая вычисляет сумму n-первых целых положительных чисел S = 1 + 2 + 3 + … + n. Количество суммируемых чисел n должно вводиться пользователем во время работы программы.​

👇
Ответ:
checknutaya
checknutaya
03.06.2021

3 раза

Объяснение:

4,6(63 оценок)
Открыть все ответы
Ответ:
Pashayka
Pashayka
03.06.2021
Uses Crt;
const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of real;
i,j,k,c:integer;
s:real;
begin
clrScr;
    for i:=1 to n do
        begin
            writeln;
               for j:=1 to m do
                  begin
                     a[i,j]:=random(30);
                      write(a[i,j]:4);
                  end;
          end;
writeln;
for j:=1 to m do
  begin
      s:=0;k:=0;
          for i:=1 to n do
               if a[i,j]mod 2<>0 then
                   begin
                       s:=s+a[i,j];
                        k:=k+1;
                   end;
      if k<>0 then
         begin
            c:=c+1;
            b[c]:=s/k;
         end;
     end;
for i:=1 to c do
   write(b[i]:8:2);
readkey;
end.

          
4,5(95 оценок)
Ответ:
Guwanc98
Guwanc98
03.06.2021
from random import randint
n = int(input("Введіть ширину масиву: "))
b = int(input("Введіть висоту масиву: "))
a = [[randint(10,99) for j in range(n)] for i in range(b)]
par = []
for i in a:
print(i,end=' ')
print()
print()
m = []
kratna_3 = []#числа кратні 3
for x in a:
for q in x:
par.append(q)
if q < 50:
m.append(q)
if q%3==0:
kratna_3.append(q)
#print(par)
parni = par[0::2]#парни елементи
ne_parni = par[1::2]#не парни елементи
#
#print('Парные елементи:\n',parni)
print('Cумму парных элементов массива: ',sum(parni))
#print("Елементи менше 50: \n",m)
print('Kоличество элементов массива, меньших 50: ',len(m))
#print("Непарные: \n",ne_parni)
print("Cреднее арифметическое нечетных элементов массива: ",round(sum(ne_parni)/len(ne_parni),2))

#print("Числа кратні 3:\n",kratna_3)
print("Cумму тех элементов массива, сумма индексов которых кратна трем: ",sum(kratna_3))
4,8(13 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ