1 год назад

Помогите!Изобразить с помощью кругов Эйлера: птица, воробей, перелиная птица, ласточка, аист.Спасибо)

Знания

Информатика

1 ответ:

рома полянский1 год назад

0 0

Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка

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

Перевод программы С++ на Паскаль! #include #include const float e = 0.0001; int main() { float x; std::cin >> x; float a

one touch

<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var e:=0.0001;

var x:=ReadReal;

var a:=(x-1)/x;

var (s,n):=(a,2);

repeat

a*=(x-1)/x*(n-1)/n;

s+=a;

n+=1

until a<=e/n;

Writeln(log(x),' ',s)

end.

0 0

4 года назад

Что не потребуется для организации локальной сети

Fatya-anb [7]

<span>Существует несколько типов сетей, и локальная сеть - лишь одна из них. Локальная сеть представляет собой, по сути, сеть, используемую в одном здании или отдельном помещении, таком как квартира, для обеспечения взаимодействия используемых в них компьютеров и программ. Локальные сети, расположенные в разных зданиях, могут быть соединены между собой с помощью спутниковых каналов связи или волоконно-оптических сетей, что позволяет создать глобальную сеть, т.е. сеть, включающую в себя несколько локальных сетей.</span>

0 0

4 года назад

Найдите сумму квадратов всех целых чисел от а до 10. Значение а вводится с клавиатуры. Предусмотрите проверку корректности ввода

Butcher [10]

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.

<u><em>Тестовое решение</em></u>
Введите целое число, не превышающее 9: -7
S2=525

0 0

4 года назад

В электронном телефонном справочнике имеется пронумерованный список из 2500 клиентов.Клиентов с 120 по 560 номера включительно,у

Saint Stas

1) 560-120=440 номеров удалили. 2) 2500-440=2060 номеров осталось Вроде так.

0 0

4 года назад

Найти сумму квадратов натуральных чисел, кратных 3, и не привышающих заданное число n Можно пожалуйста сделать циклом

Татарингариф [116]

Program n1;
var sum,n,i: integer;
begin
readln(n);
for i:=3 to n do if i mod 3=0 then sum:=sum+i*i;
write(sum);
end.

0 0

4 года назад

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