4 года назад

Напишите программу, которая вычисляет суммы элементов массива А[1:50], заполненного числами 1,3,5,7,9

1 ответ:

faq23 [2]4 года назад

0 0

Var
A:array[1..50] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 50 do
    Begin
    A[i]:=2*i-1;
    Write(A[i],' ');
    S:=S+A[i];
    End;
WriteLn('S = ',S)
End.

Читайте также

1)книга содержит 130 страниц.40 строк по 50 символов на каждой странице.найти информационный объем книги набраной на ПК в Кбайт(

AlenaSem

1) 31 Кбайт

2) 4 символа

3) -

0 0

2 года назад

А1. С какого знака начинается ввод формулы в ЭТ?1)+ 2)пробел 3)= 4)#А2. С помощью какой формулы можно определить частное от деле

CUMONS

А1. С какого знака начинается ввод формулы в ЭТ? (3) =

А2. С помощью какой формулы можно определить частное от деления содержимого ячеек А1 на В1? (2) =А1/В1

А3. С помощью какой функции можно определить среднее арифметическое диапазона ячеек А1:В3 (2) =СРЗНАЧ(А1:В3)

А4. Какой вид имеет в ЭТ выражение $\frac{5(A2+C3)}{3(B2-D3)}$

(3) 5*(A2+C3)/(3*(B2-D3)) -- знаменатель должен быть в скобках, знаки умножения написаны явно

B1. Дан фрагмент ЭТ. Найдите сумму значений...

$A2=A1+\dfrac{A1}{B1}+B1=225+\dfrac{225}{15}+15=255\\B2=A1+\dfrac{A1}{B1-10}=225+\dfrac{225}{15-10}=270\\C2=\dfrac{A1}{A1}+\dfrac{B1}{B1}=1+1=2\\\boxed{A2+B2+C2=255+270+2=527}$

B2. =3*C2^A1/(4*B1*A1)+32*C2*B1^4

0 0

4 года назад

Перевести из десятичной системы счисления в двоичную 152

Moler21 [50]

В десятичной системе
$152 = 1 \times {10}^{2} + 5 \times {10}^{1} + 2 \times {10}^{0}$
в двоичной системе:
$152 = 1 \times {2}^{7} + 0 \times {2}^{6} + 0 \times {2}^{5} + 1 \times {2}^{4} + 1 \times {2}^{3} + 0 \times {2}^{2} + 1 \times {2}^{1} + 0 {2}^{0}$
т.е. 10011010

0 0

3 года назад

Срочно нужна помощь с С++ !!! Напишите программу, которая определяет, верно ли, что введённое число – трёхзначное.

MoscovK

Если stdio и С/С++, то незачем добавлять не весть чего. Самый простой способ такой:
#include <stdio.h>
using namepsace std;

void main()
{
   bool isTrue = false;
   int val = 0;
   cin >> val;
   if(val >= 100 && val <=999)
   {
   isTrue = true;
   }
}

0 0

4 года назад

Помогите написать функцию в паскале, которая читает матрицу вещественных чисел из заданного файла

RomanDj

Function read(file:string, size:integer):array[1..1000,1..1000] of integer;
var t : text;
var i, j :integer;
var a:array[1..1000, 1..1000] of integer;
begin
assign(t, path); reset(t);
for i := 1 to size do begin
for j := 1 to size do read(t, a[i,j]);
readln(); end;
read:= a;
end.

0 0

4 года назад