М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mashamariya11111
mashamariya11111
21.03.2020 03:10 •  Информатика

Используя язык программирования 8, написать программу, которая вычисляет произведение сумм всех соседних пар целых чисел из диапазона от 12 до 36 и выводит значения тех сумм, которые меньше 52. 8. какие значения s, y будут выведены после выполнения следующей программы? начало y: = 2; нач_цикла для j от 0 до 5 s: = y + 2*j + j/2; если s < = 15 то нач s: = s – 2*j; y: = y + 2 кон иначе нач s: = s + y; y: = y – 1 кон; кон_цикла; вывод (” s=”, s, ” y=”, y); конец

👇
Ответ:
azul1999
azul1999
21.03.2020
Начало p:=1;
нач_цикла для j от 12 до 35
p:=p*(2*j+1);
кон_цикла;
вывод ("Произведение равно ", p)
конец
4,7(96 оценок)
Открыть все ответы
Ответ:
Maria120163
Maria120163
21.03.2020
Не знаю в каком языке программирования конкретно нужно, но в С# код программы в консольном варианте выглядит так
Console.WriteLine("Введите предложение в котором присутствует 2 запятые");      

string a = Console.ReadLine(); //Вводим текст в переменную а

 string []B = a.Split(','); //разбиваем наше предложение на части по запятым и заносим их в массив

Console.WriteLine(""); // просто отделяем результат от остальной массы текста. 

Console.WriteLine(B[1]); //И выводим результат на экран, все знаки между 2 запятыми. 

   Console.ReadLine();
Если нужно могу скинуть готовый фаил программы.
4,7(74 оценок)
Ответ:
Mary2304Cat
Mary2304Cat
21.03.2020
uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer;     a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do  begin   a[i].x:=random(getmaxX);   a[i].y:=random(getmaxY);   circle(a[i].x,a[i].y,2);  end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do  begin   if a[i].y>getmaxY-n-10 then a[i].y:=1   else a[i].y:=a[i].y+3;   if a[i].x<0 then a[i].x:=getmaxX   else a[i].x:=a[i].x-1;  end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then  begin   n:=n+1;   line(0,getmaxY-n,getmaxX,getmaxY-n);  end; until keypressed; readln end.
4,7(32 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ