4 года назад

Найти сумму первых пяти элементов массива a{1..10}

1 ответ:

Ульяна894 года назад

0 0

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('s5=',a[:5].Sum)
end.

Пример
-8 -42 14 -25 27 5 34 37 -24 24
s5=-34

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

Постройте пожалуйста схему

ktenok95

Объяснение:

во вложении.........

^ – не ставится, но выполняет свои действия, у себя его ставьте!

0 0

4 года назад

Pascal ABCЗадания #11)Вывести на экран числа от 10 до 150 с шагом 10.2)Вывести на экран числа от 100 до 200 с шагом 10 в обратно

Арина28

Задание #1

var a:integer;

begin

a:=10;

while a<=150 do

begin

write (a,' ');

a:=a+10

end;

writeln;

a:=200;

repeat

write (a,' ');

a:=a-10

until a<100

end.

Задание #2

var a,b:integer;

begin

readln(a,b);

if a>b then write (a) else write (b)

end.

Задания #3

var a,b,c:integer;

begin

readln(a,b,c);

if (a>b) and (a>c) then write (a,' ',b+c);

if (b>a) and (b>c) then write (b,' ',a+c);

if (c>a) and (c>b) then write (c,' ',a+b)

end.

0 0

4 года назад

С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные и ответ «Нет» в остальных случаях.

n91111

Прости не знаю ??--?????

0 0

4 года назад

Нужна помощь с информатикой. 22 номер оба задания. 1 лист нужно через while, 2 через For. Ну на листах подписано через while или

Торрент

Ответ:

реализовал на паскале

Объяснение:

program While22;

var i, num:integer;

isSimple : boolean;

Begin

isSimple :=true;

readln(num);

if (num mod 2 = 0) and (num<>2)then isSimple := false;

i:=3;

while i*i<=num do

begin

if (num mod i=0)then begin isSimple := false;break; end;

i:=i+2

end;

writeln(isSimple)

end.

0 0

4 года назад

Программирование!помогите! пожалуйста!1) дана строка. Удалить из нее все знаки препинания.2) дана строка, содержащая текст. найт

Александра48 [5.4K]

могу ответить только на первый т.к. не очень сильно знаю c++

#include <bits/stdc++.h>

using namespace std;

int main()

{

ifstream fin("c:\input.txt");

string s,sr;

int j;

bool f=true;

while(getline(fin,s))

{

for(int i=0;i<s.length();++i)

{

if((s[i]>='a' && s[i]<='z') ||

(s[i]>='A' && s[i]<='Z'))

{

sr=sr+s[i];

f=true;

}

cout<<sr;

}

0 0

4 года назад