Вот код:
word = input()
while len(word) >= 1:
print(word)
word = word[1:-1]
9,
т.к. day:= k выполнятеся одни раз в случае Dat[9]:= 7
Var
Summ,Mat,Fizik,Geogr,Biolog,Fizra:integer;
Begin
Writeln('Enter rating');
Readln(Mat,Fizik,Geogr,Biolog,Fizra);
Summ:=Mat+Fizik+Geogr+Biolog+Fizra;
Writeln(Summ);
end.
Для хранения текста объёмом 5120 символов при 8 битном кодировании потребуется 5 килобайт
Public static void SomeAction()
{
int number = 0;
int sum = 0;
<span>int num = int.Parse(Console.ReadLine());</span>
while (num != 0)
{
if (num % 5 == 0 && num % 7 != 0)
{
sum += num;
number++;
}
num = int.Parse(Console.ReadLine());
}
Console.WriteLine("Количество требуемых чисел: " + number);
Console.WriteLine("Их сумма: " + sum);
}