Откройте файл (7_04.xlsx, 7_04.xls, 7_04.ods) электронной таблицы, содержащей в каждой строке три натуральных числа. Определите, сколько среди заданных троек чисел таких, которые могут быть сторонами прямоугольного треугольника.

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int x, y;   printf("\n vvedite x and y:   ");   scanf("%d" "%d", & x, & y);     if (x < y) printf("\n x = %d, y = %d", (x + y)/2, 2 * x * y);   else printf("\n x = %d, y = %d", 2 * x * y, (x + y)/2);   printf("\n\n to ");   getch( );   return 0; }

в секунду передается 512кбит=512/8кбайт=64кбайт

за четыре минуты передалось 4*60*64=15360кбайт

в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт

ответ: 15 мегабайт

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4 

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.