Предмет: Информатика,
автор: Vadimogol
1.Даны 3 числа, найти меньшее.
2.Дано число n-кг, найти количество полных тонн.
3.Даны 3 точки по своему координату ху, определить могут ли они быть вершинами треуголника, если да , найти Р и S , если нет, обьявить об этом в сообщении.
4.Дано число, определить количество нечётных делителей .
Заранее спасибо!!!
Ответы
Автор ответа:
0
1.
var a, b, c: real
begin
readln(a, b, c);
if (a<b)and(a<c) then writeln('Меньшее число: ', a);
if (b<a)and(b<c) then writeln('Меньшее число: ', b);
if (c<a)and(c<b) then writeln('Меньшее число: ', c);
end.
2.
var n: integer;
begin
writeln('Введите количество килограмм');
readln(n);
writeln('Количество полных тонн: ', n div 1000)
end.
Интересные вопросы
Предмет: Физика,
автор: akozuhova013
Предмет: Математика,
автор: Аноним
Предмет: Қазақ тiлi,
автор: ajgerimbegimbaeva962
Предмет: Математика,
автор: trollka
Предмет: Химия,
автор: AnnaDmitriva