Incert - [инсет]
End - [энд]
На информатике, думаю, допустимо читать так, как видишь)
Ты в условном операторе не указал что должно проверяться... И к тому же нет begin и end;. Также переменную t: string; сделай, так как иначе не выйдет.
У тебя:
<span>readln; <- к тому же не указал что надо писать.
</span><span>if t then <- что это такое? Ошибка.
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
Должно быть:
</span><span>program Pr1;
const
H = 'Здравствуйте, ';
var
a,b,c,d: real;
name, t: string;
Begin
writeln('Введите свое имя:');
readln(name);
writeln(H, name, ', вас приветствует программа-калькулятор квадратного уравнения' );
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
writeln ('Хотите воспользоваться калькулятором еще раз? Введите T(Да)\F(Нет)');
readln(t);
t := t.ToLower;
if t = 'да' then
begin
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
end
else
writeln('Спасибо за использование!');
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
end.</span>
Стандартно в окне браузера используется панель для выполнения практически всех операций. Она располагается сверху. На ней есть:
1 Кнопки назад/вперёд для загрузки предыдущей/следующей страницы
2 Адресная строка, совмещенная с полем поиска
3 Кнопка Поиск - открывает окно поискового запроса
4 Кнопка Обновить - для обновления содержимого окна
5 Кнопка Остановить - останавливает загрузку веб - страницы
6 Панель для вкладок (просматриваемых веб - страниц)
7 Кнопка Домой - переход на стартовую страницу
8 Кнопка Настройки
Также есть само окно браузера, в котором работает пользователь, кнопки в верхнем правом углу Свернуть/Закрыть, вкладки веб-страниц (в шапке каждой - название и значок закрытия), значок для создания новых веб-страниц.
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (S,v,t):=ReadInteger3('Введите S,v,t');
if s<>v*t
then Println('Расстояние не равно скорости на время')
else Println('При скорости в 3 р. больше, расстояние=',v*t*3,'км');
<span>end.
Пример(1):
Введите S,v,t-> 9 5 2
Расстояние не равно скорости на время
Пример(2):
Введите S,v,t-> 10 5 2
При скорости в 3 р. больше, расстояние= 30 км
</span>
Напиши, после каких действий это окно появилось? Из какого файла, программы?
Тут если переводить с английского, то read - читать x - неизвестный, а значит данная программа не может прочитать какую либо команду.Так же тут видно что программа много раз пыталась повторить команду и у нём это никак не получалось. Ответь на вопросы заданные мной выше и если я смогу прочитать их то отвечу)