| Автор | Turbo pascal |
|---|
Помогите написать программу.
1)На цикл while.
Дано какое-то число.
Определить является ли оно палиндромом(и с конца и с начала одинаково пишется).Найти самую большую цифру.
2)На цикл repeat.
Дано последовательность.Признак конца ввода - 0.
Найти сумму тех чисел , у которых равные соседи. |
2) последовательность как задана? считаю что массивом символов a[n]
s[1] пропускаю, у нее соседей нету
i:=2
s=0;
do
if ((a[i+1]=a[i-1]) then
s:=s+a[i];
i:=i+1;
until a[i+1]<>0; |
| 1) обязательно while'ом? |
| 1) именно число? опять же, в каком формате? а может оно как строка задано? |
для sVasilich:
Спасибо.
обязательно while'оми именно число |
| а в каком формате? (real, integer) |
для sVasilich:
походу строкой, ибо вводить предлагают... |
| integer |
program CMEPTb-101;
uses crt;
var a: char;
begin
writeln('Kto TS?');
read(a); readkey; clrscr;
if a=nub then writeln('Pravilno!')
else writeln('Net on nub');
end.
зы не знаю, к чему это.
ТС, не обижайся. |
Я его отец.
Они вроде real не проходили. |
для смерть202:
ахахахахахахахахаах)
шутничёк)))
смерть101 - сын, смерть202 - папа)
http://daily.heroeswm.ru/f/bash/1240409857_2158.jpg напоминает) |
| эмм... циклы учать а риал не показывали.. оригинально) |
function IsPolindrom(value: string)
var i, t: integer;
begin
t:= (Length(value) div 2) - 1;
for i:=0 to t do
begin
result := result and value[i] = value[Length(value) - i - 1];
end;
end;
Функция для определения является ли входная строка полиндромом.
З.Ы. давно в глаза не видел паскаля, так что возможно с синтаксисом что нибудь не так :) |
13:
function IsPolindrom(value: string): boolean;
...
вроде так надо :) |
| потом напишу что нить, ща времени нету |
