program slova;
uses crt;
var s, s1: string;
i, k: integer;
begin
clrscr;
writeln ('Vvedite text: ');
readln (s1);
write ('Slova soderjaschie ne bolee 3-h bukv: ');
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
s1:=s1+s[i];
k:=k+1;
end
else
if k<=3 then
begin
write (', ',s1);
k:=0;
delete (s1,1,3);
end
else
begin
k:=0;
delete (s1,1,15);
end;
end;
readln;
end.
Вроде так, но у меня щас нету компилятора, так что проверить не могу. Если что-то будет ругаться, или вопросы какие - пиши в личку.
Подоходный налог составляет 13% от оклада.
Если оклады сотрудников записаны в столбце C (C2:C7), то для вычисления подоходного налога в ячейках столбца D нужно вставить формулы вида:
=C2*13%
Для вычисления значений в столбце E ("К выдаче", E2:E7) нужно вставить формулы вида:
=C2-D2
Разумеется, каждая из формул записывается один раз, а затем растягивается на нужное число строк.
Var x,y:real;
begin
readln(x);
if x<0 then y:=1
else if (x>=0) and (x<10) then y:=x+3
else if x>=10 then y:=x/2;
writeln(y);
<span>end.</span>
Условия состоящие в ещё одно условие называются вложенными.
Например цикл for в for:
1)for i:=1 to 10 do
2)for a:=1 to 10 do
writeln(i+a);
2 цикл for является вложенным,так же его можно назвать внутренним,а 1 цикл for внешним.
Все 4 задачи в файле "PAS" которые находятся под этим сообщением. Будут вопросы, задавайте в ЛС