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

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

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

Данек Казаков

2 года назад

7

ПОМОГИТЕ ПРОШУ!!!! вместе с кругами Эйлера!!!

ПОМОГИТЕ ПРОШУ!!!! вместе с кругами Эйлера!!!

Информатика

1 ответ:

Aison2 года назад

0 0

С кругами эйлера не уверена. давно их не делали

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

Перечислите виды информации по органам чувств 1) 2) 3) 4)

Александр 2482399

1) глаза-зрение
2) нос-обаняние
3) уши-слух
4) рот-речь

0 0

4 года назад

очень надо, помогите прошуДано целое число К. Вывести строку-описание оценки, соответствующей числу К (1- "плохо" , 2- "неудовле

Эрик17-5 [14]

Можно ещё использовать оператор выбора case

Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.

0 0

3 года назад

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

Помогите пожалуйста известны результаты поисковых запросов некоторого сегмента сети Интернет: шоколад|зефир=15000 шоколад&з

Марина111111111111

Шоколад - x;
зефир - y;
x+y=15000;
y=12000;
x=15000-12000=3000;
Ответ: 3000

0 0

3 года назад

Нужно найти цепи и цикл

Pprt456 [7]

Цепи Е,В,Б а все остальные цикл

0 0

3 года назад

Напишите программу, которая выводит на экран таблицу умножения на n ( n-целое число в диапазоне от 2 до 10, вводимое с клавиатур

Вячеслав В

<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>

begin
var n:=ReadInteger('n=');
if n.Between(2,10) then begin
    var i:=1;
    repeat
      Write(n,'x',i,'=',n*i,' ');
      i+=1
    until i>10;
    Writeln
    end
else Writeln('Число должно быть от 2 до 10')
end.

<u>Пример</u>
n= 6
6x1=6 6x2=12 6x3=18 6x4=24 6x5=30 6x6=36 6x7=42 6x8=48 6x9=54 6x10=60

0 0

1 год назад

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