Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.

0 0

4 года назад

Помогите пожалуйста с информатикой

Lentiginem [165]

25 div 3 = 24:3=8

73 div 7 = 70:7= 10

31 div 7 = 28:7= 4

25 mod 3= 25-24=1

73 mod 7 = 73-70=3

31 mod 7 = 31-28=3

2 div 3 + 1 = 0+1=1

17 - 23 div 7 = 17 - 3 = 14

31 div (7+5) = 31 div 12 = 2

25 mod 3 + 25 div 3 = 8+1=9

47 div (3 mod 7) = 47 div 3 = 15

31 mod (7 div 2) = 31 mod 3 = 1

0 0

1 год назад

Элементы двухмерного массива размером 10 Х 10 первоначально равны 1.Затем значения некоторых из них меняют с помощью следующего

Андрей Корнеев

Program gt;
var a:array[1..10,1..10]of integer;
n,k,p:integer;
begin
p:=0;
for n:=1 to 10 do
for k:=1 to 10 do
a[n,k]:=1;
for n:=1 to 4 do
for k:=1 to n+1 do
begin
A[n,k]:=A[n,k]-1;
A[k,n]:=A[k,n]-1;
end;
for n:=1 to 10 do
begin
for k:=1 to 10 do
begin
write(a[n,k]:3,' ');
if(a[n,k]=0)then p:=p+1;
end;
writeln;
end;
writeln(p);
<span>end.
ответ:8</span>

0 0

4 года назад

Дан одномерный массив M из 10 элементов, сдвинуть его элементы на три позиции. Pascla

Анастасия77777111

Const N = 10;var a: array [1..N] of longint;i,d,j:longint;begin for i:=1 to N do read(a[i]); for j:=1 to 3 do begin d:=a[n]; for i:=N downto 2 do a[i] := a[i-1]; a[1]:=d; end; writeln('После сдвига: '); for i:=1 to N do write(a[i],' '); writeln; end.

0 0

4 года назад