var k:array[1..10] of integer;
var s:real;
var i:integer;
begin
for i:=1 to 10 do begin
k[i]:=round(10*random+3);
s:=s+k[i];
end;
write('Сумма массива = ', s);
writeln
end.
Должно работать, проверьте.
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
// 1
var (x,y):=ReadReal2('Введите x и y:');
Writeln((x>0) and (y>0));
// 2
var a,c,d:longint;
Write('Введите число, его квадрат и куб: '); Read(a,c,d);
Writeln((a*a=c) and (a*a*a=d))
end.
<u>Пример</u>
Введите x и y: 3.5 1.8
True
Введите число, его квадрат и куб: 15 225 1225
False
<span>Предположим, что это возможно. Рассмотрим тогда граф, вершины которого соответствуют телефонам, а ребра – соединяющим их проводам. В этом графе 15 вершин: степень 4 из них равна 3, </span>степень 8 из них равна 6 и степень 3 из них равна 5.
Зная теорему: <span>Число нечетных вершин любого графа четно.
Понимаем, что граф с 7 вершинами с нечетными степенями существовать не может.
Ответ: Нельзя
</span>
1. Клавиатура
2. Процессор
3. Монитор
4. Память
5. Мышь
6. Джойстик
7. Винчестер
8. Принтер
Слово: Компьютер