Мальчик, на улице газеты, зарабатывает а руб. на продаже каждой из первых 75 газет. на каждой из остальных проданных газет он зарабатывает по х руб. напишите программу, которая выведет заработок мальчика, если он продаст b газет.
Var A, B, X : Integer; begin Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:'); Readln(A);
Writeln('Введите цену остальных газет:'); Readln(X);
if B <= 75 then // Условие: если газет 75 или меньше, то... Writeln('Мальчик заработает ', B * A, 'рублей.') else // Иначе... Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.'); end.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 var i,j,k,n:integer; a,b,c:array[,] of integer; begin Write('Число строк (столбцов) матрицы: '); Read(n); SetLength(a,n,n); SetLength(b,n,n); SetLength(c,n,n); Randomize; Writeln('Матрица A'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin a[i,j]:=Random(90)+10; Write(a[i,j]:3) end; Writeln end; Writeln('Матрица B'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin b[i,j]:=Random(90)+10; Write(b[i,j]:3) end; Writeln end; // умножение и вывод Writeln('Матрица C'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin c[i,j]:=0; for k:=0 to n-1 do c[i,j]:=c[i,j]+a[i,k]*b[k,j]; Write(c[i,j]:6) end; Writeln end; end.
Var ma1,ma2,mar:array[1..n,1..n] of integer; i,j,z:integer; begin randomize; writeln('Matrix 1:'); for i:=1 to n do begin for j:=1 to n do begin ma1[i,j]:=random(10); write(ma1[i,j]:4); end; writeln; end; writeln('Matrix 2:'); for i:=1 to n do begin for j:=1 to n do begin ma2[i,j]:=random(10); write(ma2[i,j]:4); end; writeln; end; writeln('Final matrix:'); for i:=1 to n do begin for j:=1 to n do begin for z:=1 to n do mar[i,j]:=mar[i,j]+ma2[z,j]*ma1[i,z]; write(mar[i,j]:4); end; writeln; end; end.
//C вводом размерности
Var ma1,ma2,mar:array[,] of integer; i,j,z,n:integer; begin randomize; readln(n); setlength(ma1,n,n); setlength(ma2,n,n); setlength(mar,n,n); writeln('Matrix 1:'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin ma1[i,j]:=random(10); write(ma1[i,j]:4); end; writeln; end; writeln('Matrix 2:'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin ma2[i,j]:=random(10); write(ma2[i,j]:4); end; writeln; end; writeln('Final matrix:'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin for z:=0 to n-1 do mar[i,j]:=mar[i,j]+ma2[z,j]*ma1[i,z]; write(mar[i,j]:4); end; writeln; end; end.
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');
Readln(A);
Writeln('Введите цену остальных газет:');
Readln(X);
if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.