Сравнить массу яблока и массу груши если весы уравновешенны на одних 5 яблок и 3 груши , а на других 4 яблока и 4 груши

5яблок + 3 груши = 4 яблока + 4 груши снимем одновременно с обеих чаш весов 4 яблока и 3 груши, получим 1 яблоко = 1 груша

1) var   x,y,z: integer; begin   for x: =1 to 10 do   for y: =1 to 10 do     for z: =1 to 10 do   if sqr(x)+sqr(y)=sqr(z) then   writeln('x= ',x,' y= ',y,' z= ',z); end.2)var  x,y,k,r: integer; begin  write('введите радиус: '); readln(r);   k: =0;   if r> 0 then  begin  for x: =-r to r do  for y: =-r to r do  if sqr(x)+sqr(y)< =sqr(r) then k: =k+1;   write('количество целых точек: ',k);   end    elsewrite('радиус должен быть положительным! '); end.

Відповідь:

Бейсик Python

DIM N, S AS INTEGER

N = 1

S = 0

WHILE N <= 100

S = S + 30

N = N * 2

WEND

PRINT S

n = 1

s = 0

while n <= 100:

   s = s + 30

   n = n * 2

print(s)

Паскаль Алгоритмический язык

var n, s: integer;

begin

   n := 1;

   s := 0;

   while n <= 100 do

   begin

       s := s + 30;

       n := n * 2

   end;

   write(s)

end.

алг

нач

цел n, s

n := 1

s := 0

нц пока n <= 100

   s := s + 30

   n := n * 2

кц

вывод s

кон

Си++

#include <iostream>

using namespace std;

int main()

{

   int n, s;

   n = 1;

   s = 0;

   while (n <= 100)

   {

       s = s + 30;

       n = n * 2;

   }

   cout « s « endl;

}

Пояснення: