1) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program program1; var s,subs:string;c:char;isOneNumber:boolean;p:byte;n,err:integer; begin writeln('‚Введите фразу'); readln(s); c:=s[1]; isOneNumber:=false; p:=pos(' ',s); while p<>0 do begin if p=1 then begin s:=copy(s,2,length(s)); p:=pos(' ',s); continue; end; subs:=copy(s,1,p-1); s:=copy(s,p+1,length(s)); p:=pos(' ',s); val(subs,n,err); if err<>0 then continue; if (n=0) or (n>9) then continue; isOneNumber:=true; break; end; if isOneNumber then writeln('‚ Есть числа, сосотоящие из одной цифры') else writeln('‚Нет чисел, состоящих из одной цифры'); end.
Если на паскале сойдет, лови: И так, нам надо создать массив чисел и заполнять его числами вводимых с клавиатуры. Значит мы должны использовать цикл for для ввода чисел, и так же для увеличения каждого числа на 8. ... Вот код: const n = 3; //Сколько чисел вводить begin var numbers: array [1..n] of integer; //Объявляем массив чисел for var i := 1 to n do readln(numbers[i]); //Считываем числа n раз for var i := 1 to n do numbers[i] := numbers[i] + 8; //Увеличиваем каждое число на 8 writeln(numbers.JoinIntoString(', ')); //Выводим числа end. ... Примеры: Ввод: 1, 2, 3 Вывод: 9, 10, 11
Ввод: 0, 5, 7 Вывод: 8, 13, 15 ... Если не сложно нажми " " ;)
И так, нам надо создать массив чисел и заполнять его числами вводимых с клавиатуры. Значит мы должны использовать цикл for для ввода чисел, и так же для увеличения каждого числа на 8.
...
Вот код:
const n = 3; //Сколько чисел вводить
begin
var numbers: array [1..n] of integer; //Объявляем массив чисел
for var i := 1 to n do readln(numbers[i]); //Считываем числа n раз
for var i := 1 to n do numbers[i] := numbers[i] + 8; //Увеличиваем каждое число на 8
writeln(numbers.JoinIntoString(', ')); //Выводим числа
end.
...
Примеры:
Ввод: 1, 2, 3
Вывод: 9, 10, 11
Ввод: 0, 5, 7
Вывод: 8, 13, 15
...
Если не сложно нажми " " ;)