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

С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напечатать эту сумму прописью.
Пример: двадцать один рубль
сто семьдесят три рубля
девятьсот пятнадцать рублей

Python

ответы "Это долго" или же "С ума сойдешь это реализовывать" не принимаются)

👇
Ответ:
каралина123
каралина123
27.06.2021

x=int(input())

c=1

x1=x//100

if x1 == 9:

print("девятьсот")

elif x1 is 8:

print(" восемьсот")

elif x1 is 7:

print(" семьсот")

elif x1 is 6:

print(" шестьсот")

elif x1 is 5:

print(" пятьсот")

elif x1 is 4:

print(" четыреста")

elif x1 is 3:

print(" триста")

elif x1 is 2:

print(" двести")

elif x1 is 1:

print(" сто")

else:

print("")

x1=x%100//10

if x1 == 9:

print(" девяносто")

elif x1 is 8:

print(" восемьдесят")

elif x1 is 7:

print(" семьдесят")

elif x1 is 6:

print(" шестьдесят")

elif x1 is 5:

print(" пятьдесят")

elif x1 is 4:

print(" сорок")

elif x1 is 3:

print(" тридцать")

elif x1 is 2:

print(" двадцать")

elif x1 is 1:

x1=x%10

c=0

if x1 == 9:

print(" девятнадцать")

elif x1 is 8:

print(" восемьнадцать")

elif x1 is 7:

print(" семьнадцать")

elif x1 is 6:

print(" шестьнадцать")

elif x1 is 5:

print(" пятьнадцать")

elif x1 is 4:

print(" четырнадцать")

elif x1 is 3:

print(" тринадцатт")

elif x1 is 2:

print(" двенадцать")

elif x1 is 1:

print(" одиннадцать")

else:

print("десять")

if c==1:

x1=x%10

if x1 == 9:

print(" девять")

elif x1 is 8:

print(" восемь")

elif x1 is 7:

print(" семь")

elif x1 is 6:

print(" шесть")

elif x1 is 5:

print(" пять")

elif x1 is 4:

print(" четыре")

elif x1 is 3:

print(" три")

elif x1 is 2:

print(" два")

elif x1 is 1:

print(" один")

elif x1 is 0:

print("ноль")


С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напеча
С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напеча
С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напеча
С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напеча
С клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. Программа должна напеча
4,4(66 оценок)
Открыть все ответы
Ответ:
Anastasia4790
Anastasia4790
27.06.2021
Var s:string;
k:integer;

procedure res(s:string;var k:integer);
begin;
if s='очень часто' then k:=k+4;
if s='часто' then k:=k+3;
if s='иногда' then k:=k+2;
if s='редко' then k:=k+1;
end;

begin;
writeln('1. Я часто волнуюсь понапрасну.');
readln(s);
res(s,k);
writeln('2. Мне хочется, чтобы мои друзья подбадривали меня.');
readln(s);
res(s,k);
writeln('3. Я боюсь выглядеть глупцом.');
readln(s);
res(s,k);
writeln('4. Я беспокоюсь за свое будущее.');
readln(s);
res(s,k);
writeln('5. Внешний вид других куда лучше, чем мой.');
readln(s);
res(s,k);
writeln('6. Как жаль, что многие не понимают меня.');
readln(s);
res(s,k);
writeln('7. Чувствую, что я не умею как следует разговаривать с людьми.');
readln(s);
res(s,k);
writeln('8. Люди ждут от меня очень многого.');
readln(s);
res(s,k);
writeln('9. Чувствую себя скованным.');
readln(s);
res(s,k);
writeln('9. Чувствую себя скованным.');
readln(s);
res(s,k);
writeln('10. Мне кажется, что со мной должна случиться какая-то неприятность.');
readln(s);
res(s,k);
writeln('11. Меня волнует мысль о том, как люди относятся ко мне.');
readln(s);
res(s,k);
writeln('12. Я чувствую, что люди говорят про меня за моей спиной.');
readln(s);
res(s,k);
writeln('13. Я чувствую себя в безопасности.');
readln(s);
res(s,k);
writeln('14. Мне не с кем поделиться своими мыслями.');
readln(s);
res(s,k);
writeln('15. Люди не особенно интересуются моими достижениями.');
readln(s);
res(s,k);
if k<10 then
writeln('Вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства. Возьмите за правило принципы: всякая конфликтная ситуация возникла из искры, которую вы высекли сами или разжечь.');
if k>30 then
writeln('Вы себя недооцениваете);
if (k>=10) and (k<=30) then
writeln('Набранное количество от 10 до 30 свидетельствует о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности. Вам по плечу серьезные дела. Дерзайте!');end.
4,6(62 оценок)
Ответ:
samikby
samikby
27.06.2021
Const A:array[1..15] of string =('1. Я часто волнуюсь понапрасну.','2. Мне хочется, чтобы мои друзья подбадривали меня.','3. Я боюсь выглядеть глупцом.','4. Я беспокоюсь за свое будущее.','5. Внешний вид других куда лучше, чем мой.','6. Как жаль, что многие не понимают меня.','7. Чувствую, что я не умею как следует разговаривать с людьми.','8. Люди ждут от меня очень многого.','9. Чувствую себя скованным.','10. Мне кажется, что со мной должна случиться какая-то неприятность.','11. Меня волнует мысль о том, как люди относятся ко мне.','12. Я чувствую, что люди говорят про меня за моей спиной.','13. Я чувствую себя в безопасности.','14. Мне не с кем поделиться своими мыслями.','15. Люди не особенно интересуются моими достижениями.');
B:array[0..5] of string=('Отвечая на вопросы, указывайте, как часты для Вас перечисленные ниже состояния по такой шкале:','очень часто – ;','часто – ;','иногда – ;','редко – ;','никогда – ');
var i,n,s:integer;
begin
for i := 0 to 5 do
writeln(b[i]);writeln;
for i := 1 to 15 do begin
writeln(a[i]);Read(n);s:= s + n;end;
if s < 10 then write ('вам надо избавляться от чувства превосходства над окружающими, зазнайства, хвастовства.',s)
else if (S >= 10 ) and (S <= 30 ) then
write ('о психологической зрелости, которая проявляется прежде всего в адекватности самоотражения, то есть реалистической оценке своих сил, возможностей, внешности.',s)
else
write ('вы себя недооцениваете',s);end.
4,5(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ