Каждую неделю юра получает деньги на мелкие расходы. из них он тратит х рублей на сладости. это составляет одну четверть того, что он получает еженедельно. юра сберегает одну треть того, что остается после покупки сладостей. составьте программу, которая выведет на экран сумму, накопленную юрой за год. составить алгоритм и программу.

Апрограмму в какой программе создавать, их эже много

Procedure sovp; var   i, j, r, c: byte;   ar: array[1..10, 1..10]of byte;   s: array[1..4] of string;   b: boolean; label l1;   begin   r : = random(2, 3);   l1:   c : = 1;   b : = false;   for i : = 1 to 10 do     for j : = 1 to 10 do     begin     ar[i, j] : = random(0, 1);     if(i < 5) then s[i] : = '';     end;       for i : = 1 to 9 do       begin         for j : = 1 to 10 do         begin         if(ar[i, j] < > ar[i + 1, j]) then b : = true;         end;       if(b = false) then       begin       s[c] : = i + ' строка совпалает с ' + (i + 1) + ' строкой';       c : = c + 1;       end;     b : = false;   end;   if(c < > r) then goto l1   else   begin     for var k : = 1 to c do if(k< > c)then writeln(s[k]);     for i : = 1 to 10 do     begin       for j : = 1 to 10 do write(ar[i, j], ' ');         writeln;     end;   end;     end;   begin   sovp; end. 

Базовые логические выражения: (and = +) a) not (true) = false b) not (false) = true c) true + true = true d) true + false = false e)  false + true= false f) false  + false = false g) true or true = true h) true or false = true i) false or true = true j) false or false = false в условии не сказано, кем являются a, b, c по этому озвучим все 8 вариантов: 1) a = true; b = true; c = true 2) a = true; b = false; c = true 3) a = false; b = true; c = true 4) a = false; b = false; c = true 5)  a = true; b = true; c = false 6) a = true; b = false; c = false 7) a = false; b = true; c = false 8) a = false; b = false; c = false и рассмотрим все 8 вариантов: (t = true; f = false) 1)  2)  3)  4) 5)  6)  7)  8)