Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
Program z;
var
i,n,s:integer;
begin
readln(n);
i:=3;
s:=0;
if n>=3 then
repeat
s := s + i;
i := i + 3;
until i > n;
writeln(s);
end.
<em>1. Современное решение, когда можно решить "в одну строку"</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
<u>Пример</u>
252 337 105
S=24
<em>2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)</em>
var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
Read(m);
for j:=1 to 3 do begin
d:=m mod 10;
if d mod 2<>0 then s:=s+d;
m:=m div 10
end
end;
Writeln('S=',s)
end.
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
Ответ:
#include <iostream>
using namespace std;
int fib (int position);
int main()
{
int answer,position;
cout<<"Which position(k) ?";
cin >> position;
cout << "\n";
answer= fib(position);
cout <<answer<< " (k) is the position";
cout <<position << "Fibonachi number.\n";
return 0;
}
int fib(int n)
{
int minusTwo=1, minusOne=1,answer=2;
if (n<3)
return 1;
for (n-=3;n;n--)
{
minusTwo=minusOne;
minusOne=answer;
answer=minusOne + minusTwo;
}
return answer;
}
Объяснение:
Наскільки я зрозумів це задача на визначення значення порядкового номера ряду Фібоначчі ,тому ось вихідний код на C++
