4 года назад

Составить программу для того что бы выводить 5 символов подрядПОЖАЛУЙСТА очень надо

1 ответ:

osbusratel4 года назад

0 0

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
1.To(5).Println(',')
end.

Результат
1,2,3,4,5

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

Составить программу зависимости y от x по формуле

Александр0104 [5]

#include <iostream>
#include <cmath>

using namespace std;

int main()
{
 double x, y;
 cout << " x = ";
 cin >> x;

 if (x <= 1)
 y = pow(x, 1 / 3.0);
 else if (x <= 2)
 y = 2 - x;
 else
 y = sin(x - 2);

 cout << "y = " << y << endl;;

}

0 0

4 года назад

Прочитать ещё 2 ответа

Сравните естественные и формальные языки по сфере применения

Хьюстус911 [104]

Естественные - говорит весь народ или национальный язык ( рус, англ, нем)
а формальный - употребляют только в определенной сфере (ноты, дорожн знаки, Морзе)

0 0

4 года назад

Ответить на следующие вопросы:1) Что означает фраза: «задачи с ветвлением»?2) Как записывается полный условный оператор?3) Как з

GORRRYCH [1]

1)Задичи в которых есть условие(IF)

2) if Условие then Действие else Действие

3)if Условие then Действие

5) program des;

var a,b:integer;

begin

readln(a);

if a>10 then b:=a*2 else if a=> 10 then b:=a*3;

wribeln(b);

end;

0 0

4 года назад

Помогите! информатика

joker2017 [1.2K]

Ответ:

Сортировка

Объяснение:

0 0

4 года назад

Дан одномерный целочисленный массив (количество элементов массива вводится с клавиатуры). Необходимо отсортировать элементы масс

Маринна4

//FPC 2.6.4

var
a: array of longint;
size, i, j: longint;
begin
randomize;
writeln('Колво элементов: ');
readln(size);

setLength(a, size);
write('Исходный случайный массив: ');
for i:=0 to size-1 do
begin
a[i]:=random(201)-100;
write(a[i], ' ');
end;
writeln;

 for i:=0 to size-2 do
for j:=0 to size-i-2 do
if a[j]>a[j+1] then
begin
 a[j]:=a[j] xor a[j+1];
a[j+1]:=a[j] xor a[j+1];
a[j]:=a[j] xor a[j+1];
end;

writeln('Отсортированный массив: ');
for i:=0 to size-1 do write(a[i], ' ');
writeln;

end.

0 0

4 года назад