Регистрация
krioss
08.09.2022 01:48
Информатика
Есть ответ 👍

Дано слово длиной не менее 8 символов написать программу которая переносит 1 букву в конец слова

130
393
Посмотреть ответы 2

Ответы на вопрос:

ratmir2rat
ratmir2rat
4,4(49 оценок)

uses crt; var  s: string; p: char; i: integer; begin  write('введи слово, в котором не менее 8 букв:   '); readln(s);   if length(s)< 8 then write('вы ввели слишком короткое слово.')  else  begin    p: =s[1];     for i: =1 to length(s) do

      s[i]: =s[i+1];       s[i]: =p;       write(s);   end; end.

vladpasin34
vladpasin34
4,4(70 оценок)

не инициализированы переменные.

 

 

var x,y: real;  

beginx: =5.8; y: =7; write (`сумма=,x+y);   end.

 

 

Популярно: Информатика