Ох, так уж и быть...
Д.б. в программе:(Обрати внимание на отступы и большие/маленькие буквы в переменных!!!)
Var a: integer; b, c, x: real;
Begin
a:=7;
b:=3,2;
c:=a+b;
WriteLn('Сумма = ', c{английская!!!});
c:=c/2;
x:=a-c;
WriteLn('x = ', x, '; квадрат x = ', x*x);
End.
На все вопросы почему заменил сумма <- summa и почему присваивания поставил в разные строки отвечай: "Так легче читается программа!!!"
На экране будет:
Сумма = 10,2
x = 1.9; квадрат x = 3.61
Program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n,m,k,c:integer;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y;
end;
begin
writeln('Enter M, N, K');
write('m = ');readln(m);
write('n = ');readln(n);
write('k = ');readln(n);
c:=NOK(k,m);
k:=nok(c,n);
writeln('NOK(M,N,K) = ',k);
readln;
<span>end.
</span>
<em>Напишем рядом с ответом количество единиц первого множителя:
1*11=11 (К=1)</em>
<em>11*11=121 (К=2)</em>
<em>111*111=12321 (К=3)</em>
<em>1111*1111=1234321 (К=4)</em>
<em>11111*11111=123454321 (К=5)
</em><em>и т. д.</em>
Как мы видим, ответ напрямую зависит от количества единичек в первом множителе(К): от 1 до К и от К-1 до 1.
<em>Зная это свойство, можно не проводить громоздкие вычисления.</em>
Var s1,s2:string; x,y:char; i:integer;
begin
writeln('Введите строку:');
readln(s1);
writeln('Введите символ x:');
readln(x);
writeln('Введите символ y:');
readln(y);
s2:='';
for i:=1 to length(s1) do
if s1[i]=y then s2:=s2+s1[i]+x else s2:=s2+s1[i];
writeln('Измененная строка: ', s2);
end.
Пример:
<span>Введите строку:
a+bc+def+abc=jkl
Введите символ x:
-
Введите символ y:
+
Измененная строка: a+-bc+-def+-abc=jkl</span>
Как понимаю алгоритм нужно на псевдокоде:
1) ввести первое число A
2) ввести второе число B
3) ЕСЛИ A>B:
Вывести А
ИНАЧЕ:
Вывести В