Указатель ,использующийся для вставки пояснения к тексту документе Microsoft Office-это... Оглавление
Ярлык
Гиперссылка
Сноска
Ответы на вопрос:
program raf105;
var a,sum: integer;
begin
writeln('вводите числа по очереди');
writeln('чтобы закончить введите 0');
repeat
readln(a);
sum+= a;
until a=0;
writeln('сумма: ',sum);
end.
2.program raf105;
var
s: string;
i,k,j: integer;
poli: boolean;
begin
poli: = true;
write('введите слово: ');
readln(s);
s: = lowercase(s);
k: = length(s) div 2;
j: = k*2+1;
if (length(s) mod 2)< > 0
then j+= 1;
for i: =1 to k do
begin
j-=1;
if poli
then poli: = s[i] = s[j];
end;
if poli
then writeln('слово - палиндром')
else writeln('слово - не палиндром');
end.
3.
program raf105;
var a: array[1..10] of integer;
x,i: integer;
begin
writeln('вводите 10 чисел по очереди');
for i: =1 to 10 do
readln(a[i]);
write('введите искомое число: ');
readln(x);
write('индексы элементов: ');
for i: =1 to 10 do
if a[i] = x
then write(i,' ');
end.
4.program raf105;
var a: integer;
begin
write('введите номер дня недели: ');
readln(a);
case a of
1: writeln('это понедельник');
2: writeln('это вторник');
3: writeln('это среда');
4: writeln('это четверг');
5: writeln('это пятница');
6: writeln('это суббота');
7: writeln('это воскресенье');
end;
end.
5.program raf105;
var a: array[1..100] of integer;
i,o,x: integer;
begin
writeln('вводите числа по очереди');
writeln('чтобы закончить введите 0');
repeat
o+= 1;
readln(a[o]);
until a[o]=0;
o-= 1;
writeln('введённые числа в обратном порядке: ');
for i: =o downto 1 do
writeln(a[i]);
end.
Популярно: Информатика
-
АлинаSwons16.02.2020 09:55
-
valera22800502.06.2021 11:55
-
fd113203.01.2021 21:16
-
Polklop22.11.2020 13:43
-
Маша2004112407.09.2020 04:01
-
boglaevab08.01.2023 11:50
-
Hyies03.01.2021 05:55
-
Аня14223.06.2020 08:21
-
vikaberg28.07.2021 00:46
-
СарварИбрагимов1118.11.2020 00:12