4 года назад

Напечатать программу которая сможет вывести его без первой и последней буквы. Пожалуйста помогите♥

1 ответ:

Irena4 года назад

0 0

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

begin
var s:=ReadlnString;
s[2:s.Length].Println
end.

Пример
Информатика
нформатик

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

Помогите пожалуйста.Заранее спасибо.Храни вас Бог.Если вы поможите вы будете самыми умными в этом приложении.

nbuzika

Коля тракторист, Саша комбайнёр, Петя - садовник.

0 0

4 года назад

Составить программу которая находит наибольшее и наименьшее число из четырех введенных:)))) ребят прошу очень надо хоть на паска

Виктор111111 [17]

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

begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.

Пример:
-45.4 18 0 4.17
Max=18, min-45.4

0 0

1 год назад

Вычислить: 1+2+4+8...+256 в паскале Распишите программу ! Пж

Маргарита16

Var i,s: integer;
begin
 i:=1; s:=0;
 repeat
 s:=s+i;
 i:=i*2;
 until i>256;
 writeln('s = ',s);
end.

второй вариант:

var s: integer;
begin
 s:=1 shl 9 - 1;
 writeln('s = ',s);
end.

s = 511

0 0

4 года назад

Какое количество бит при игре в крестики-нолики на поле размером 4 4 клетки получит второй игрок после первого хода первого игро

Вован72рус

Всего 16 клеток. Из формулы количества информации:
2^i = 16 получаем i = 4 бита.

0 0

4 года назад

ПОМОГИТЕ ПЖЛ!!!! Вычислите сумму положительных элементов, стоящих в столбцах с чётными номерами. (ответ желательно полностью) +

bull82

#include <iostream>
using namespace std;
#define N 10
int main()
{
int array[10] ={1,2,3,4,5,6,7,8,9,10};
int sum=0;
for(unsigned int i=1;i<N;i+=2)
sum+=array[i];
cout<<sum<<endl;
return 0;
}

Раз не указан язык, пусть будут плюсы

0 0

3 года назад