Program asd;
USES crt;
var result:real;
a,b,c,i:integer;
BEGIN
clrscr;
Writeln('Vvedite 3 chisla polowitelnyx: ');
Readln(a,b,c);If (a<0) or (b<0) or (c<0)
then
Writeln('Error!')
else
Result:=(a+b+c)/3;
Writeln(Result);
<span>END.</span>
#include <iostream>
using namespace std;
int fib(int n)
{
if(n == 0) return 0;
if(n == 1 || n == 2) return 1;
return fib(n-1)+fib(n-2);
}
int main()
{
int n;
cin >> n;
int ans = 0;
for (int i = 1; i < n; ++i)
if (fib(i) >= n)break;
else ans += fib(i);
cout << ans;
}
var
I,U,R: real;
begin
write('Введите значение напряжения (U, В) = '); readln(U);
write('Введите значение сопротивления (R, Ом) = '); readln(R);
I:=U/R;
write('Сила тока (I, A) = ', I);
end.