Составьте блок-схему и программу для решения . найдите и выведите на экран все двузначные числа, сумма цифр которых при умножении на 3 увеличивается в 2 раза.
var i,a,b:integer; begin For i:=10 to 99 do Begin a:=(i div 10); b:=(i mod 10); if (3*(a+b)) div (a+b)=2 then write(i,' '); End; readln; end. но я что то не совсем понял, как может такое быть, если взять 1+3 = 4 *3 = 12.. все увел. в 3 раза..
const nx = 20; var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; i, j, k,n,r,t: integer; begin Writeln('Введите размер матрицы n');Read(n); for i := 1 to n do begin for j := 1 to n do begin Read(k);x[i, j] := k; end;end; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do begin Write(x[i, j]:4); if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end; end; Writeln; end; Writeln;Writeln('Одномерный массив'); for j := 1 to t do Write(z[j]:4); end.
Не хватает либо цены за билет эконом класса либо цены за билет бизнес класса.
Uses crt; var a,b,x,c,d:real; begin ClrScr; writeln('Введите кол-во нераспроданных билетов бизнес класса (а) и кол-во нераспроданных билетов эконом. класса (б) '); readln(a,b); // Узнали, сколько осталось нераспроданных билетов разных классов. c:=160*0.75-b; // Узнали, сколько билетов продано эконом класса. d:=160*0.25-a; // Узнали, сколько билетов продано бизнес класса. x:=d+c/2; writeln('Для того, чтобы узнать сколько денег получила авиакомпания за этот рейс нужно число х: ',x,' умножить на цену билета бизнес класса, либо умножить на удвоенную цену одного билета эконом класса'); readln end.
Или ответ: число которое выведет программа х, например, ответ: 15х
Если писать по вашему условию то будет так
var i,a,b:integer; begin For i:=10 to 99 do Begin a:=(i div 10); b:=(i mod 10); if (3*(a+b)) div (a+b)=2 then write(i,' '); End; readln; end. но я что то не совсем понял, как может такое быть, если взять 1+3 = 4 *3 = 12.. все увел. в 3 раза..