Почему программа не выводит числа, которые делятся на 3 и на 5?
Дано: Напишите программу, вычисляющую сумму только тех чисел от 1 до N, которые делятся либо на 3, либо на 5.
program geron;
function triangleArea(const a, b, c: real): real;
var p: real;
begin
p:=(a+b+c)/2; {периметр}
triangleArea:=sqrt(p*(p-a)*(p-b)*(p-c)); {площадь}
end;
var a, b, c, s1, s2: real;
begin
writeln('Стороны первого треугольника:');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
s1 := triangleArea(a, b, c);
writeln('Стороны второго треугольника:');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
s2 := triangleArea(a, b, c);
writeln('Сумма=', s1+s2:0:5); {5 знаков после запятой}
writeln('Разность=', s1-s2:0:5);
end.
begin
var start := new System.Diagnostics.ProcessStartInfo('tracert.exe', 'ya.ru');
start.RedirectStandardOutput := true;
start.UseShellExecute := false;
var process := System.Diagnostics.Process.Start(start);
process.OutputDataReceived += (sender, args) -> Println(args);
process.BeginOutputReadLine;
process.WaitForExit;
end.
Индекс находился вне границ массива
source.pas(2,16) Error: Identifier not found "intenger"
source.pas(4,3) Error: Identifier not found "readin"
source.pas(5,8) Fatal: Syntax error, "THEN" expected but "ELSE" found
Program zl;
var a, b, max: Integer;
begin
readln(a,b);
if a < b then
max := b //Да. Никакой точки с запятой тут быть не должно.
else
max := a;
writeln('max=', max);
end.
var asciiBytes = File.ReadAllBytes(fileName); // допустим, что мы читаем текст из файла.
var text = Encoding.ASCII.GetString(asciiText); // Переводим байты ASCII в текст
var utf16leBytes = Encoding.Unicode.GetBytes(text); // Переводим текст в байты UTF-16LE
Encoding.ASCII
, а Encoding.GetEncoding(1251)
, например, если вам на самом деле нужна win-1251. program powDemo;
function pow(number: Real; exponent: Integer): Real;
var
i: Integer;
result: Real;
begin
result := 1;
for i := 1 to exponent do
result := result * number;
pow := result;
end;
begin
writeln(pow(2, 3));
end.