F(153) = F(152) + 153 = F(151) + 152 + 153 = F(150) + 151 + 152 + 153 = ... = F(1) + 2 + 3 + ... + 153 = 1 + 2 + 3 + ... + 153 = 153 * 154 / 2 = 11781
Ввести массив
проверяет условие и выводит количество чисел:
<span>for i:=1 to 12 <span>do
</span></span>k=0;
if (A[i] mod 5=0) and (A[i] mod 3=0) then k=k+1;
writeln(k); end.
<span>Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);</span><span>i:=1;
repeat</span><span>val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;</span><span>until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.</span>
Формальные языки потребовались людям для того чтобы перевести информацию из одного вида другой для хранения передачи и воспроизведения информаций.