<u>Pascal:</u>
program loop;
var a,s:real;
begin
While s < 100 do
begin
readln(a);
s:= s+a;
end;
end.
<u>-----------------------------</u>
<u>Python:</u>
s = 0
while s < 100:
s += float(input())
<u>-----------------------------</u>
<u>Блок-схема:</u>
<u>"Приложил скриншот" см. ниже:</u>
//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1256
Var
x,y,z:real;
begin
read(x,y,z);
writeln((x+y+z)/3);
end.
Пример ввода:
1
2
3
Пример вывода:
2
#include <iostream>
using namespace std;
int main()
{
int a;
cin>>a;
a=100*(a /100)+10*(a %10)+((a % 100) /10);
cout<<a<<endl;
return 0;
}
187.5 Кбайт=187,5*1024*8=<span><span>1536000 бит
V=i*T*D, T=V/(i*D)
T=</span></span><span>1536000 /(16*48000)=2 сек</span>