1)
Var
A,B,C:real;
Begin
WriteLn('Введите значения углов в градусах:');
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B+C=180 then
Begin
WriteLn('Существует');
if (A = 90)or(B = 90)or(C = 90) then Write('Является прямоугольным')
else Write('Не является прямоугольным')
End
else WriteLn('Не существует')
End.
2)
Var n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('Количество чисел, кратных четырём на отрезке [1,',n,']: ',n div 4);
End.
#include <iostream>
using namespace std;
int main(){
int value;
cout << "vvedite chislo: ";
cin >> value;
for (int i = 1; i <= value; i++){
if (value % i ==0) cout << i << " ";
}
}
сейчас стоит сорт с меньшего по большее, если нужно наоборот, то цикл for перепиши так:
for(int i = value; i>0; i--){тело цикла не меняй}
Задал доллару значение 30, евро 60. Вы уж исправите как там сейчас)
<html>
<head>
<script>
function onButtonClick(){
var dollar=30;
var euro=60;
var rub=document.getElementById('lol').value;
alert('В долларах: '+rub*dollar+'\n\rВ евро: '+rub*euro); }
</script>
</head>
<body>
<input type='text' id='lol'>
<button onClick='onButtonClick()'>
Конвертировать
</button>
</body>
</html>
Uses crt;
var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then
writeln('I')
else if (x<0) and (y>0) then
writeln('II')
else if (x<0) and (y<0) then
writeln('III')
else
writeln('IV');
<span>end.</span>
14
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее