Var
a,b,i:integer;
begin
for i:=0 to 56 do
begin
if i mod 2 = 0 then a:=a-i else a:=a+i;
end;
end.
#include <iostream>
using namespace std;
int main()
{
int i, n;
cout << "n="; cin >> n;
for (i = 10; i <= 99;i++)
if (pow(i % 10, 3) + pow(i / 10, 3) == n) cout << "Vashe chislo= " << i << endl;
return 0;
}
program
zadacha;
var
n,x:real;
begin
writeln('vvedite
chislo');
readln(n);
if n>0
then x:=sqr(n);
if n<0
then x:=sqr(n)*n;
writeln(x);
end.
Дано:
Скорость1=1536 бит/c
Скорость2=768 бит/c
Размер файла1= 100 Кбайт=102400байт=819200 бит
Размер файла2= ?
Решение:
819200 / 1536 = 533,3 сек - скорость передачи 100 Кбайт данных по скорости1
533,3 * 768 = 409600 бит / 8 = 51200 байт / 1024 = 50 Кбайт - вес файла 2
Вроде бы так
uses crt;
var x,y:real;
begin
write('Введите координаты x и y точки: ');
read(x,y);
if (abs(x)>=0.5) and (abs(y)>=0.5) and (abs(x)<=1) and (abs(y)<=1) then
writeln('Принадлежит.')else writeln('Не принадлежит.');
<span>end.</span>