БУДУ ОЧЕНЬ БЛАГОДАРНА! 1. Ниже приведена программа:var s, k: integer;beginreadln(s);readln(t);if (s < 1) and (t < 2)thenwriteln ('YES')elsewriteln ('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 должно вводиться пользователем во время работы программы.
Ответы
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.
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.
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))
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))
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Кто лучший если я патписка если игры напишите игры в комах
Автор: AkulovaAnastasiya
В кулинарной книге собраны рецепты приготовления блюд . Можно ли назвать рецепт алгоритмом
Автор: kristinagaspa62
Действия с информацией это действия связанные с дополните
Автор: Veril8626
3 раза
Объяснение: