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

Составить программу выводящую числовой от 1 до n (n вводится с клавиатуры )

👇
Ответ:
islamlg
islamlg
14.06.2020
Pascal ABC.

var   
   i,n:integer; 
begin     
   readln(n);     
   for i:=1 to n do         
      write(i,' ');     
   writeln; 
end.
4,8(61 оценок)
Ответ:
pveronika0808
pveronika0808
14.06.2020
Язык C++.
#include <iostream>
using namespace std;
int main() {
    int n;
    cout << "Введите число, большее 1: " << endl;
    cin >> n;
    for(int i = 1; i<=n; i++) {
            cout << i << endl;
            }
            if(n < 1)
            cout << "Некорректный ввод." << endl;
    }
4,8(70 оценок)
Открыть все ответы
Ответ:
Стас1326
Стас1326
14.06.2020
Задача 1. Код, предложенный Budzsergiy777p0i27m наиболее подходит для решения, если слова разделены только одним пробелом. Решение задачи ниже аналогично (удалить пробелы в начале и в конце строки, затем посчитать пробелы, увеличить на 1 результат и вывести на экран)

Программа:
print(input().strip().count(' ')+1)

Задача 2. Здесь следует учесть, что строка является неизменяемым элементом, т.е. напрямую символ в строке изменить нельзя, но можно получить два среза строки до и после буквы 'h' и затем склеить первый срез + большая буква 'H' + второй срез. Например, строка
'abchdef' -> 'abc'+'H'+'def'. А чтобы не захватить первую и последнюю букву h, нужно найти их индексы в строке и затем обрабатывать только часть строки между первой и последней буквой h.

Программа:

x=input()              #ввод строки
n1=x.find('h')       #находим индекс первого вхождения буквы h
n2=x.rfind('h')      #находим индекс последнего вхождения буквы hy=x[n1+1:n2]     #выбираем срез строки после первого вхождения
                          #буквы h и до последнего вхождения буквы h
while y.find('h')!=-1: #пока в срезе есть буква h       y=y[:y.find('h')]+'H'+y[y.find('h')+1:]  #заменить малую букву h на H
print(x[:n1+1]+y+x[n2:])   #вывод строки до первой буквы h+результат
                                        #замен в срезе h на H + вывод строки после
                                        # последней буквы h
4,6(71 оценок)
Ответ:
MrMixa008
MrMixa008
14.06.2020
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

1. Функция

function avg(a:array of integer):=a.Where(t->t>0).Average;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  Writeln('Среднее значение положительных элементов ',avg(a))
end.

2. Процедура

procedure avg(a:array of integer; var m:real);
begin
  m:=a.Where(t->t>0).Average
end;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  var m:real;
  avg(a,m);
  Writeln('Среднее значение положительных элементов ',m)
end.

Хорошо видно, что решение с функцией имеет явное преимущество.
4,5(37 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ