Граммпора, нераск. Переставте буквы что бы получить слово.

Знания

Информатика

1 ответ:

GenaSh [7]3 года назад

0 0

Программа, а второе не знаю

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

1. У исполнителя Квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. вычти 5Исполнитель работает только с ц

lime999

1) 21221

2) 11222

3) 11121

4) 21121

5) 12112

6) 22212

7) 21122

0 0

4 года назад

Задание 2.11 * Напишите класс, который выводит на экран в одной строке ваше имя и фамилию, в другой – телефон, все это – в рамке

Lesorub [3]

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

type
Ex211a=class

public

constructor(fio,phone:string);
begin
 var n:=Max(fio.Length,phone.Length);
 Writeln((n+2)*'*');
 Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
 Writeln((n+2)*'*')
end;
end;

type
Ex211b=class

public

constructor;
begin
 var n:=ReadInteger('Введите целое число:');
 Writeln('Результат равен ',n+10)
end;
end;

begin
new Ex211a('Иван Иванов','7-841-2666666');
new Ex211b
end.

Пример
***************
*Иван Иванов *
*7-841-2666666*
***************
Введите целое число: 18
Результат равен 28

0 0

4 года назад

Расшифруй последовательность, записанную с помощью шифра Виженера: "нпабавмъй" с кодовым словом банан

meatgrinder6sic6 [461]

зашифрованное слово глартэъпю

кларнет

0 0

4 года назад

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

Информатика помогите пожалуйста даю 30 баллов

Антон александрычь

Вот, на картинке вроде все подписано

0 0

4 года назад

1 Задание:сформируйте и выведите на экран массив из девяти элементов,каждые три последовательных элемента которого составлены по

Окулина Сурепкина [186]

uses crt;
var
a:array [1..9] of integer;
i,c,m,n:integer;
b:real;
begin
clrscr;
randomize();
c:=1;
for i:=1 to 9 do
begin
if i=c then
begin
a[i]:=i+3;
c:=c+3;
end
else
begin
if i mod 3=0 then a[i]:=a[i-1]+a[i-2] else a[i]:=sqr(i-1);
end;
write(a[i],' ');
end;
readln();
end.

0 0

4 года назад