var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 4 c
v = 256000 бит/с
I - ?
Решение:
бит
1024000.0 бит = 128000.0 байт = 125.0 Кбайт
Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end
#include<iostream>
using namespace std;
int main(){
int a,b;
cin>>a>>b;
cout<<a+b<<a-b<<a*b;
return 0;
}