Var a,b,c:real; begin read(a,b,c); if (a=b) or (b=c) or (a=c) then writeln('Треугольник равнобедренный'); else writeln('Треугольник не равнобедренный'); end.
На каком языке надо? Если паскаль то держи: 1)Program A; Var a:Integer; Begin Write('Введите двузначное число'); Read(a); If (a>10) and (a<100) Then Writeln('Число является двузначным') Else Writeln('Вы ввели не двузначное число!'); End.
2)var i,a:integer; begin a:=2; for i:=1 to 20 do begin a:=a-1; writeln(a); end; end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b; var a:integer; begin write('Введите любое четное число= '); read(a); if a mod 2 = 0 then write('ответ= ',a/2) else write('Было введено нечетное число!'); end.
5)program d; var i,a:Integer; begin a:=2; for i:=1 to 20 do begin a:=a+10; writeln(a); end; end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
2. процессор-микропроцессор, который выполняет задачи, алгоритмы, управляя компьютером. системный блок-большая коробка, корпус, в котором находятся все комплектующие компьютера. 3. это конечная последовательность однозначных предписаний, исполнение которых позволяет с конечного числа шагов получить решение задачи, однозначно определяемое исходными данными. 4.стационарный или подвижный объект, который представляет собой комплекс технических средств обработки информации, предназначенный для выполнения определенных функций
a,b,c:real;
begin
read(a,b,c);
if (a=b) or (b=c) or (a=c) then
writeln('Треугольник равнобедренный');
else
writeln('Треугольник не равнобедренный');
end.