Помогите пожалуйста сделать информатику

Знания

Информатика

1 ответ:

Lisik CooL [611]3 года назад

0 0

2 (1,2,3,5,6,8,9,10) (ПЫШКА)
4 (1,2,3,5,7,8,9,10) (ПУШКА)
9 (1,2,3,4,9,10) (ПАЛКА)
7 (1,2) (П)

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

Помогите написать программу в Паскаль. Дан произвольный текст. Преобразовать его по следующим правилам: все буквы «о» заменяются

митхун

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('>');
s:=s.Replace('о','oa').Replace(' ','_').Replace(',','');
Writeln(s);
end.

Тестовое решение
> "Дает корова молоко" - писать, конечно, не легко!
"Дает_кoaрoaва_мoaлoaкoa"_-_писать_кoaнечнoa_не_легкoa!

0 0

4 года назад

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

Система отказов исполнителя. Отказ «не понимаю» возникает тогда, когда исполнителю подается команда, не входящая в его СКИ. Отка

borisowasofya [3]

Да, всё правильно. При неправильной команде СКИ выдаст "не понимаю", при невозможности исполнения выдаст "не могу"

0 0

4 года назад

Расположите величины в порядке убывания 1024 кб 1000 байтов 1 бит 1 байт 1 кбайт

Неееееет

1024 Кб = 1024×1024 байта
1 бит = 1/8 байта
1 Кб = 1024 байта
В порядке убывания: 1024 Кбайта, 1 Кбайт, 1000 байт, 1 байт, 1 бит

0 0

4 года назад

Слон Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2\%] По заданным координатам слона и пешки определить, находится ли

Кадров Ярослав [1]

Var
A, B, C, D: integer;
f1, f2: Text;

begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
    Readln(f1, A, B, C, D);
    if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
    else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.

0 0

4 года назад

1. Базы данных — это: A) информационные структуры, хранящиеся во внешней памяти; B) программные средства, позволяющие организовы

Dani12

программные средства, осуществляющие поиск информации.

0 0

4 года назад