Задание 7. С клавиатуры вводится строка содержащая целое число в десятичной системе счисления. Составьте программу реализирубщую вывод числа с разделением на триады цифр.
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string; begin write('Введите строку : '); readln(s); write('Введите слово : '); readln(a); if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть') else writeln('В строке такого слова нет'); end.
Тест №1 Введите строку : Привет участникам олимпиады! Введите слово : ник Слово "ник" в строке есть
Тест №2 Введите строку : Всем привет! Введите слово : админ В строке такого слова нет
Var x, y: array[1..100] of integer; i, n, k: integer; min, max: integer;
begin {ввод массива} write('n = '); readln(n);
writeln('Данные массива:'); for i := 1 to n do begin readln(x[i]);
end; writeln();
{минимум и максимум} max := x[1]; min := x[1]; for i := 1 to n do begin if max < x[i] then max := x[i]; if min > x[i] then min := x[i]; end; writeln('max = ', max); writeln('min = ', min); writeln('avg = ', (max + min) / 2);
max := (max + min) / 2; k := 0; for i := 1 to n do begin if x[i] >= max then begin k := k + 1; y[k] := x[i]; write(y[k], ' '); end; end; end.
ответ: вот такое вот решение придумал, думаю тут все должно быть понятно
a = input()
a = a[::-1] #переворачиваем строку (было 123 стало 321)
s = ""
for i in range(len(a)):
s = s + a[i]
if len(s)-s.count(' ') == len(a):
break
if (len(s)-s.count(' ')) % 3 == 0:
s = s + ' '
s = s[::-1] #переворачиваем строку (было 321 стало 123)
print(s)