Burov1446
?>

Сегодня сдавать , а я вообще не понимаю информатику. Да

Информатика

Ответы

Elshel8694

ответ на Python:

a,k = input(),0

k = 6 * a.count('6') #Мы считаем кол-во цифр 6 в числе и умножаем 6 на это число

q = []

for x in range(-3,8,0.5):

   q.append(3-x)  #Надеюсь я правильно понял функцию

s = [int(i) for i in a] #Мы создаём массив который содержит каждую цифру

#Если нельзя массивы

for i in a:

   print(i)

Объяснение:

Цифры, кратные шести - только 6

Странно, что функция на писана так,  3 - х2/2, и если я её понял то она означает 3 - x * 2 / 2

А там просто циклом проходимся по числу

ЕкатеринаРустам
// 7
begin
    var arr := ArrRandom(13);
    arr :=  arr.OrderByDescending(x->x).ToArray;
    arr.Println;
    Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
            'Count = ',arr.Where(x->x>10).Count);
end.

// 8
begin
   var arr := ArrRandom(10);
   Sort(arr);
   arr.Println;
   Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
           'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.

// 9
begin
   var arr := ArrRandom(15);
   arr := arr.OrderByDescending(x -> x).ToArray;
   arr.Println;
   Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.
muravlev2702
1. a; c
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
program prim_a;
var m, n, k: integer;

begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
end.
4. a) 
program plowad;
var
a, h: real;

begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var 
a, b: integer;

begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Сегодня сдавать , а я вообще не понимаю информатику. Да
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Шитенков
fouettearoma
barnkim
petrova-kate3
batalerka391
Janaz842060
kreon1
Vyacheslavovich Mikhailovich1421
gavrilasmax05
nane2924329
ekaterinava90
AlekseiBunina1895
tanyaandreeva728
smartschoolfili6
irschacha