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

Напишите программу(с переменных),которая находит кол-во слов в строке символов.(pascal)

👇
Ответ:
Miller2005
Miller2005
08.03.2021
Вот глобальная переменная (хотя можно спокойно было без нее обойтись).

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
var
  n:integer;

begin
  n:=ReadlnString('Введите строку:').ToWords.Count;
  WritelnFormat('Количество слов равно {0}',n)
end.

Тестовое решение:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6
4,8(70 оценок)
Открыть все ответы
Ответ:
kabirova2356
kabirova2356
08.03.2021

1. a = int(input())

if a < 0:

   print('Отрицательное число')

elif a = 0:

   print(' ноль ')

else:

   print(' Положительное число') .

2. i = 0

while i != 5:

   i += 1

   print('8 класс')

3. i = [1,1,1,1,1]

for a in range(5):

   print('8 класс')

Объяснение:

Надеюсь вы так работали с циклом фор,а то у учительницы глаза на лоб вылезут). Вообще вот мое объяснение:
1. Сначала в питоне пишем переменную с оператором инпут для ввода числа, потом ставим условия if и elif, это одно и тоже но elif для множества условий. else - в противном случае. И там условия.

2. Берем переменную i(ее обычно используют для циклов) и пишу я: пока i не равно 5 учитывая что i равно 0 идет пять раз. А что бы шло пять раз надо дойти до 5 добавляя +1 к переменной.

3. Range функция арифмет. прогресии. Она считает сколько элементов в массиве и это использу. для цикла в цикле пишу 8 класс.

Учите пайтон - пайтон сила. А так хорошо размялся.

4,5(96 оценок)
Ответ:
home66589
home66589
08.03.2021
Ты вводишь любое число, которое в памяти компьютера присваивается в ячейку 'a'. 

for i:=1 to a do 
Данная строка — некий алгоритм, повторяющийся определённое количество раз; 1 to 'a' ('a' — число, которое ты ввела). Например, если ты ввела число 3, то твой алгоритм будет повторяться 3 раза. 

if a mod i=0 then b:=b+1 
Данная строка означает: если остаток от деления 'a' на 'i' равен нулю, то мы к 'b' прибавляем один. 

if b=2 then writeln('простое число') 
Если число 'b' равно двум, то на экране выводим надпись: "Простое число"; 
else writeln(' не простое число')
Если же число 'b' неравно двум, то на экране выводим надпись: "Непростое число" (если переводить подробно). 

А теперь, насчёт числа 3. 
Заменяем программу: 
var a, i, b:integer; 
begin
readln (a); 
for i:=1 to 3 do 
if 3 mod i = 0 then b:=b + 1; 
if b = 2 then writeln ('простое число')
else writeln ('непростое число');
end.

Вводится число 3. Алгоритм повторяется 3 раза.
Остаток деления 3 на 1 равен нулю? — нет —> b + 1 (b = 1); 
Остаток деления 3 на 2 равен нулю? — нет —> b + 1 = 1 + 1 = 2 (b = 2); 
Остаток деления 3 на 3 равен нулю? — нет —> b + 1 = 2 + 1 = 3 (b = 3).
<Программа идёт дальше>
Если b = 2, то выводим надпись: "простое число". 
b ≠ 2, так как b = 3 (после выполнения алгоритма) —> выводим надпись: "Непростое число". 
Конец.

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