Крышка,книга,надо переставить буквы так,чтобы получилось новое слово.

Знания

Информатика

1 ответ:

marman96 [49]4 года назад

0 0

Крыша, больше нет вроде

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

12. Составить блок-схему и написать программу вычисления значения функции: Кто решит дам 20 балов. СРОЧНО!!! ПоЗяЗя ^_^

panda-vik [1.3K]

Язык PascalABC:begin var f: real; readln(f); if (f >= 0) then begin writeln('x := ', sqrt(f)); end else writeln('x := -3');end.

0 0

4 года назад

Помогите пожалуйста! Очень прошу! Массив из 15 элементов заполнить целыми случайными числами в диапазоне от 0 до 20. Найти: a) К

Germanika [124]

===== PascalABC.NET =====

begin

var a := ArrRandom(15, 0 , 20); // глупый диапазон c) 0 всегда

a. Println;

a.Count(p -> p.IsOdd).Println; // a)

var s := a.Where(p -> (p mod 3 =0) or (p mod 5 = 0));

Println('Сумма', s.Sum, ' Количество', s.Count); // b)

a[1::2].Where(p -> p < 0).Sum.Println // c

end.

0 0

4 года назад

Помогите пожалуйста, язык питон

Светик Владим [6]

import math as m

r = float(input("r = "))

pi = m.pi

p = 2*pi*r

s = pi*pow(r,2)

print("Радиус = {}\nПлоща = {}".format(p,s))

0 0

4 года назад

Устройства ввода успользуемое для упровления компьтером во время игры?

ФАРИТ Барашев [86]

<em>Устройство ввода - клавиатура</em>

0 0

4 года назад

1) Определить, является ли введенное с клавиатуры число четным? 2) Дано целое число. Если оно является положительным, то прибави

Виктория Кутафина [1]

1) Первое задание:
var a: integer;
begin
write ('Введите число: ');
readln (a);
if (a mod 2 = 0) then
writeln ('Четное число')
else writeln ('Не четное');
readln;
end.
2) Второе задание:
program test;
var a: integer;
begin
write ('Введите число: ');
readln (a);
if a > 0 then
a:= a + 1;
if a < 0 then
a:= a - 2;
if a = 0 then
a:= 10;
writeln (a);
end.

0 0

1 год назад