Задать вопрос!

Задать вопрос!

Все категории

анна198787 [4]

4 года назад

6

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

я вот так во всех клетках. помогите плис

Информатика

1 ответ:

Nike844 года назад

0 0

П О Р О К

А Т А К А

С К Л О Н

Х А Л В А

А З И А Т

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

Хеей, ребят, помогите пожалуйста решить какое-нибудь из этих заданий! Буду очень благодарна.

Дмитрий Пакшонков

1)59

2)4

Especially for you...

0 0

4 года назад

РЕШИТЕ 3 КЛАСС ИНФОРМАТИКА ПОМОГИТЕ ПЛИЗ0ЗЗЗЗЗЗЗ

LyL

1. 1) прямоугольник
2) прямоугольник
3) паралелограмм

2. 1) трапеция
2) круг
3) большой круг

3. 1) прямоугольник
2) трапеция
3) квадрат

0 0

4 года назад

Стр 56 №52 восьмерик(1,0,3) шатер(1,3,3) четверик(4,0,5) восьмерик(5,5,3) шатер(5,8,3) восьмерик(9,0.3) шатер(9,3,3)

Ladybird

Просто фотку если хочешь ответ

0 0

4 года назад

Ввести число С. Определить, есть ли в массиве элемент, равный С. Найти • номер первого такого элемента • номер последнего такого

Андрей Тазов [7]

Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] = C then
    begin
      Count := Count + 1;
      tmpLast := i;
    end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
    writeln('В массиве нашлось число, равное С');
    if (Count = 1) then
      writeln('Первое и единственное число в позиции a[', tmpLast, ']')
    else
    begin
      i := 0;
      repeat
        i := i + 1;
        tmpFirst := i;
      until (a[i] = C);
      writeln('Первое такое число a[', tmpFirst, ']');
      writeln('Последнее такое число a[', tmpLast, ']');
    end;
end;
readln;
end.

0 0

1 год назад

Найдите первое число которое кратное 7, не кратное 3, и на конце 3

ALeKsanDR2015 [269]

//Ответ: 133.
//PascalABC.NET

var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>

0 0

4 года назад