program abc; uses crt;var F,k,q1,q2,r:integer;beginclrser;writeln (039;введите F039;);read

Program abc; uses crt;
var F,k,q1,q2,r:integer;
begin
clrser;
writeln ('введите F');
read ('F');
writeln (('F=',k*((abc(q1)*abc(q2))/(E*sqr(r)));
readkey;
end. ( здесь пишетВстречено 'end', а ожидался идентификатор

Задать свой вопрос
1 ответ
Синтаксические ошибки исправлены. А что программа будет вычислять - это иной вопрос!
Program abc; 
uses crt;
var F,k,q1,q2,E,r:integer;
begin
clrscr;
writeln ('введите k,q1,q2,E,r');
readln (k,q1,q2,E,r);
writeln ('F=',k*((абс(q1)*абс(q2))/(E*sqr(r))));
readkey;
end.
Игорь Идиатулин
спасибо , выручил
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт