Категория
Информатика, опубликовано 07.03.2019 18:40

Составить программу определяющую является ли введенное слово перевертышем?

Ответы

Ответ
Ответ оставил: Гость
Var s,s1: string; i: integer; begin read(s); for i: =1 to length(s) do s1: =s[i]+s1; if s1=s then write('yes') else write('no'); end.
Ответ
Ответ оставил: Гость
Добрая-хорошая,гневная-вспыльчивая.
Ответ
Ответ оставил: Гость
Program maximum;
Var a, max, k, i: integer;
Begin
max:=0;
k:=0;
For i:=1 to 4 do
begin
Readln(a);
if (a > max) then
Begin
max:=a;
k:=1;
end else begin
If (a = max) then
k:=k+1;
end;
end;
end;
Writeln(max,k);
end.
Ответ
Ответ оставил: Гость
Таблица с расчетом начальных шагов цикла - в прилагаемом файле.
Из таблицы видно, что начиная с 6-го шага цикла действия будут повторяться, следовательно конечное значение переменной с будет равно 20+95*3 = 305.


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 1 на вопрос по информатике: Составить программу определяющую является ли введенное слово перевертышем?... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube