Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.
Ответ дал: Гость
(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s: =0;
writeln ('введите число');
while a< > 0 do
begin
a: = a mod 10
s: =s+a;
end;
if s mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
Ответ дал: Гость
ваня на п
саша на в
коля на с
петя на к
Ответ дал: Гость
стандартный программе просмотра изображений и факсов не сохраняет в других форматах.
потому лучше открыть paint или любой другой просмотрщик или графический редактор
просто открыть в нем нужную картинку и файл-сохранить как(в новом окошке внизу в списке выбрать формат)
о форматах написано много в интернете.
если хотите пошаговую инсрукцию, то присоединяйте картинки и табличку, а то так не ясно че делать
Популярные вопросы