program progressia; uses crt; var a : array[1..1000] of integer; x,d,n,f:int64; i:integer; begin clrscr; randomize; readln(x,d,n); f:= 0; write(x,' '); for i := 1 to n-1 do begin a[i] := x + d; x:= a[i]; write(a[i],' '); end; readln; end.
program progressia; var a : array[1..1000] of integer; x,d,n:int64; i:integer; begin readln(x,d,n); write(x,' '); for i := 1 to n-1 do begin a[i] := x + d; x:= a[i]; write(a[i],' '); end; readln; end.
program schetchislo; uses crt, math; var a: array [1..10000] of int64; q, b, n, k : int64; i: longint; begin randomize; readln(q, b, n); k:= 0; for i := 1 to n do begin a[i]:= RandomRange (q, b); write(a[i],' '); if (((a[i] mod 100) div 10) mod 2 = 0) and (((a[i] mod 100) div 10) <>0) then
k:= k+1; end; writeln; writeln(k); readln; end. Подскажите пожалуйста что здесь не так?((
program schetchislo; uses crt, math; var a: array [1..10000] of int64; q, b, n, k : int64; i: longint; begin randomize; readln(q, b, n); k:= 0; for i := 1 to n do begin a[i]:= RandomRange (q, b); write(a[i],' '); if (((a[i] mod 100) div 10) mod 2 = 0) then k:= k+1; end; writeln; writeln(k); readln; end. Так тоже не подходит...
program progressia;
ВідповістиВидалитиuses crt;
var a : array[1..1000] of integer;
x,d,n,f:int64;
i:integer;
begin
clrscr;
randomize;
readln(x,d,n);
f:= 0;
write(x,' ');
for i := 1 to n-1 do begin
a[i] := x + d;
x:= a[i];
write(a[i],' ');
end;
readln;
end.
Подскажите пожалуйста где ошибка...
crt НЕ ВИКОРИСТОВУВАТИ!!!!! clrscr також не нужен
Видалитиwrite(x,' ');???? навіщо , можливо readln
і взагалі, що повинна робити програма?....
program progressia;
ВідповістиВидалитиvar a : array[1..1000] of integer;
x,d,n:int64;
i:integer;
begin
readln(x,d,n);
write(x,' ');
for i := 1 to n-1 do begin
a[i] := x + d;
x:= a[i];
write(a[i],' ');
end;
readln;
end.
program schetchislo;
ВідповістиВидалитиuses crt, math;
var a: array [1..10000] of int64;
q, b, n, k : int64;
i: longint;
begin
randomize;
readln(q, b, n);
k:= 0;
for i := 1 to n do begin
a[i]:= RandomRange (q, b);
write(a[i],' ');
if (((a[i] mod 100) div 10) mod 2 = 0) and (((a[i] mod 100) div 10) <>0) then
k:= k+1;
end;
writeln;
writeln(k);
readln;
end.
Подскажите пожалуйста что здесь не так?((
uses не потрібен для тих простих задач, які ми розвязуємо. RandomRange в стандартних такої команди немає... int64 в масиві це вже занадто..
Видалитиprogram schetchislo;
ВідповістиВидалитиuses crt, math;
var a: array [1..10000] of int64;
q, b, n, k : int64;
i: longint;
begin
randomize;
readln(q, b, n);
k:= 0;
for i := 1 to n do begin
a[i]:= RandomRange (q, b);
write(a[i],' ');
if (((a[i] mod 100) div 10) mod 2 = 0) then
k:= k+1;
end;
writeln;
writeln(k);
readln;
end.
Так тоже не подходит...