1)
program pr;
uses crt;
Var y,x:real;
Begin
Writeln('vvedite x');
readln(x);
y:=(4*x)/(x-1);
Writeln('y=',y:10:3);
readln;
end.
2)
program pr;
Var n,i,a:integer;
Begin
Writeln('введите кол-во цыфр');
readln(n);
for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;
end.
2) использование массива
program pr;
uses crt;
Var n,i:integer;
a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);
Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Заданы M строк, которые вводятся с клавиатуры. Подсчитать количество пробелов в каждой из строк и количество заглавных букв. Вывести строки и найденные значения рядом со строками. Питон
<Code>
--- Python 3.8.3 ---
import typing
from typing import Callable
from typing import AnyStr
from typing import Any
import re
import string
def StringCount(RawString: AnyStr, Selector: Callable[[AnyStr], bool], splitter: AnyStr = None) -> int:
'''Подсчитывает кол-во вхождений элемента, удовлетворяющего условию, в строку или подстроку при заданном splitter'''
counter = 0
if splitter:
ToAnalyse = RawString.split(splitter)
else:
ToAnalyse = list(RawString)
for item in ToAnalyse:
if Selector(item): counter += 1
return counter
def main():
Strings = [input() for i in range(int(input()))]
for s in Strings:
Uppercase = StringCount(s, lambda p: lambda p: p.isupper())
Spaces = s.count(' ')
print(f'String: {s}\nSpaces: {Spaces}\nUppercase: {Uppercase}')
if __name__ == "__main__":
main()
<\Code>
На скриншотах приложены тесты программы.