- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
Почитай системные требования приложения, уверен что там не больше 1 гигабайта оперативы
Язык С++.
#include <iostream>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
if(a + b > c && a + c > b && b + c > a){
if (a == b && a == c && b == c) {
cout << "Равносторонний." << endl;
}
else if (a == b || a == c || b == c) {
cout << "Равнобедренный." << endl;
}
else {
cout << "Разносторонний." << endl;
}
}
else
cout << "Треугольник не существует." << endl;
}
Ответ:
ABCE=8
Объяснение:
ACDE=25
ACE=18
ABCDE=15
ABCE=8
Остальные пути не проходят через C
Program minsk;
var a: integer;
begin
writeln('В каком году был основан город Минск?');
writeln('В 1067г.');
writeln('В 993г.');
writeln('В 1147г.');
read(a);
if a=1067 then
writeln('Верно');
else
writeln('Не верно Минск был основан 1067г')
end.