сервис вопросов и ответовРебята, помогите решить задачу, пожалуйста!
10-11 класс|
|
Oпределите значение d после выполнения фрагмента программы:
d:=3255;
f:=d div 15-17;
z:=d div (f*5);
d:=d mod (z+1);
Laptevalesha
22 апр. 2015 г., 2:36:59 (9 лет назад)
Dimonloxotron
22 апр. 2015 г., 4:45:36 (9 лет назад)
vard,f,z: integer;
begin
d:=3255;
f:=d div 15-17;
z:=d div (f*5);
d:=d mod (z+1);
writeln (d);
end.
Ответ. 3
Ответить
Другие вопросы из категории
2 гб перевести в биты
2*2^10*2^10*2^10*2^3= 2^34 бит
а как будет 512 мб перевести в биты?
проверьте программу!
Program f4;
var f1, f2 : text;
s: string ;
begin
Assign(f1,'t1.txt');
Assign(f2,'t2.txt');
Reset(f1);
Rewrite(f2);
while not eof(f1) do
begin
readln(f1, s);
writeln(f2,s);
end;
close(f1);
close(f2);
end.
Читайте также
Помогите решить задачу.
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА.я пропустила тему. Дан одномерный массив А состоящий из 10
элементов.Вывести на экран исходную таблицу и резултат программы.
Найти произведения элементов массива А. удовлетворяющих условию:
c<=A[i]<=d.
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА.я пропустила тему.ПО ПАСКАЛЬ.!!
Дан одномерный массив А состоящий из 10 элементов.Вывести на экран исходную таблицу и резултат программы.
Найти произведения элементов массива А. удовлетворяющих условию:
c<=A[i]<=d.
Помогите решить задачу пожалуйста.
Вывести на экран все числа из интервала (А, В), числа стоящие за ними, произведение этих чисел.
Вы находитесь на странице вопроса "Ребята, помогите решить задачу, пожалуйста!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.