Информатика Оффлайн
Наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений
Информатика
составьте программу, которая находит разность наименьшего и наибольшего из 3 введенных с экрана чисел. Паскаль
min:=a[1]; max:=a[1]; {Присваиваем начальное значение максимуму и минимуму}
for i:=1 to n do begin
if a[i]>max then max:=a[i]; {Если какой-то элемент массива больше, чем максимум, то он и становится максимумом}
if a[i]<min then min:=a[i]; {Если какой-то элемент массива меньше, чем минимум, то он и становится минимумом}
end;
k:=max-min; {рассчитываем разность между максимумом и минимумом}
writeln('Максимум',' ',max,' ','Минимум',' ',min);
writeln('Разница',' ',k); {Выводим разницу}
readln;
end.
M=2/1+(2/2+(2/3+(2/…+(2/98+2/(99+2/67)))))
1,941
Не подумал.Просто написал как на рисунке
ну вот теперь напишите нормально
Дробная черта. Говорю же на рисунке понятнее
/ - это дробная черта пример 3/5 - это дробь
M=2____
1+2__
2+2__
3+2_____
...
...
98+2_____
99+ _2
67
и как по вашему это понять?
M= 2
1+ _____________
2
2+ _____________
2
3+ ______________
...
...
2
___________
98+ 2
99+________
67
Ну как то так
и что это за черточки?
Я не знаю как это точно записать. Перейдите,там нет нечего страшного
а вы попробуйте записать это тут.
Нужно найти значение выражение и записать ответ с точностью три знака после запятой
Вот ссылка на выражение
мы не работаем со ссылками. пишите задание здесь
Даны два числа. Уменьшить первое число в 10 раз, если оно меньше второго числа.
Написать на паскале.
if a < b then a:= a/10;
Program1.pas(11) : Операция 'and' не применима к типам integer и boolean
var
i, a, b, c, d, e , s:integer;
begin
s:=0;
for i:= 10001 to 99999 do begin
a:=i div 10000; // 1-я цифра
b:=(i mod 10000) div 1000; // 2-я цифра
c:=(i mod 1000) div 100; // 3-я цифра
d:=(i mod 100) div 10; // 4-я цифра
e:=i mod 10;//5-я цифра
if (ab) and (bc) and (ac) and (e mod 2 = 0) and (ac - c*e = a - b + c + d+e) then s:=s+1;
end;
write (s);
end.
смените тип на LongInt