Объяснение:
^ знака нет, но выполняет свои действия, у себя в таблице ставьте его!
В ряду лишнее число,найди его и поясни почему: 1,2,3,5,6,7. 3,5,6,7,11.
malinka 1106 [1]
Везде ответ 6
В первом составное
А во втором-чётное
Первая
Program n1;
Uses CRT;
Var a,b,c,k: integer;
begin
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else
If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;
If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a))
then begin k:=1; writeln('Pryamoygolnij'); end;
If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;
If k=0 then writeln('Treygolnik Raznostoronnij');
readln
end.
Вторая
Program n1;
Uses CRT;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);
readln
end.
Запомните на будущее:
параллелограмм - обозначает ввод-вывод
прямоугольник - операции
овалы- начало/конец
ромб сплюснутый - условие
ромб с продолговатыми сторонами (похож на обозначающиеся знаки в древности, сделанные с помощью дерева) - цикл
ЕСЛИ вам нужно будет написать данную программу, то не забудьте правильно указать скобки "((5-x)y)/3".
Var
i,s,n:integer;
begin
n:=0; s:=0;
for i:=0 to 99 do
if i>9 then
if i div 10 > i mod 10 then begin
n:=n+1; s:=s+i;
end;
Writeln('Сумма ',s,', ср. арифметическое ',s/n)
end.
<u>Результат</u>
Сумма 2970, ср. арифметическое 66