Var a: array[1..10] of real;
<span> i: integer;
</span><span>begin
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> write('число ',i,' '); readln(a[i]);
</span><span> end;
</span><span>{ первый цикл }
</span><span> for i:=1 to 10 do
</span><span> if a[i]>35 then a[i]:=0;
</span><span>{ второй цикл
</span><span> i:=1;
</span><span> while i<=10 do
</span><span> begin
</span><span> if a[i]>35 then a[i]:=0;
</span><span> i:=i+1;
</span><span> end; }
</span><span>{ третий цикл
</span><span> i:=1;
</span><span> repeat
</span><span> if a[i]>35 then a[i]:=0;
</span><span> i:=i+1;
</span><span> until i>10; }
</span><span>{ печать }
</span><span> for i:=1 to 10 do write(a[i],' ');
</span><span>end.
</span>
Var
s:string;
i,n:integer;
begin
Write('Исходное слово: '); Readln(s);
for i:=Length(s) downto 1 do
if s[i] in ['а','А'] then Delete(s,i,1);
Writeln('Результат: ',s)
end.
<em><u>Тестовое решение:</u></em>
Исходное слово: Абракадабра!!!
Результат: бркдбр!!!
---
program xxx;
var a,b,c,d:real;
begin
writeln ('Введите меру угла');
b:=a*pi/180;
c:=sin(b);
writeln('c=sin(b)=',c);
d:=cos(b);
writeln('d=sin(b)=',d);
readln;
end.
---
Если будут ошибки или другие проблемы, напиши мне.
---
1. Открыл упаковку
2. Положил на стол
3. Достал сосуд
4. Выкладываешь все в него
Условие: Размер сосуда подходит?
НЕТ - Сосуд оказался слишком мал - стираешь лапшу в порошок и высыпаешь это в сосуд, смешивая с приправой и маслом
ДА - Все хорошо, заливай кипятком
5. Размешиваешь ложечкой, майонез, кетчуп и кутчунез или майонез с кетчупом по вкусу
6. Выпиваешь
7. ???
8. Конец
program HelloWorld;
var i: integer;
begin
<span>
for i:=33 to 555 do</span>
<span>
begin</span>
<span>
if i mod 13 = 0 then writeln(i);</span>
end;
end.
Результат:
<span>39
52
65
78
91
104
117
130
143
156
169
182
195
208
221
234
247
260
273
286
299
312
325
338
351
364
377
390
403
416
429
442
455
468
481
494
507
520
533
546</span>