.....................не верно у тебя
Знаю только для примеров и уравнений называется PhotoMath
Задаешь значения k и S ноль(количество и сумма) .Сделай цикл с условием, если b делить на 5 равно нолю то k равно k=+1.
Ещё такое же условие, но s=s+b
Program calculator;
Var a,c: real;
b: char;
Begin
Write('Введите первое число: ');
readln (a);
Write('Введите знак. ( + - сложение, - - вычитание, / - деление, * - умножение): ');
readln (b);
Write('Введите второе число: ');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*': a:=a*c;
'/': a:=a/c;
end;
Write ('Результат: ',a);
End.
P.S Программанаписна для Pascal.
program chislo;
var
n, s, k :real;
begin
writeln('Введите число: ');
read(n);
if n>=0 then
begin
s:=sqrt(n);
writeln('Квадратный корень числа: ',s);
end
else
begin
k:=sqr(n);
writeln('квадрат числа: ',k);
end;
end.