помогите решить задачу в паскаль - есть ответ

Без имени, 96 просмотров

-3

Примечание:
program ABC;
uses crt;
var
s,a,b : integer;
d : real;
begin
read (a,b);
s:=a+b;
d:=a/b;
writeln('сумма равна: ';s);
writeln('частное равно: ';d);
if a=b then
writeln('числа равны')
else
writeln('числа не равны');
end.

Примечание:
ошибка неверное выражение
writeln('сумма равна: '(курсор здесь);s);

Ответы:

SokolWP

должно быть
writeln('сумма равна: ',s);
writeln('частное равно: ',d);

Gadd

deleted

7sense

read(a, b)
writeln(s) or ('числа равны')
давно не пробовал, так что в правильности не уверен

KHSESE

program ABC;
{$APPTYPE CONSOLE}
var
s,a,b : integer;
d : real;
begin
read (a,b);
s:=a+b;
if(b<>0)then
d:=a/b;
writeln('сумма равна: ',s);
writeln('частное равно: ',d);
if a=b then
writeln('числа равны')
else
writeln('числа не равны');
end.

chlenix

writeln('сумма равна: ',s);
writeln('частное число: ',d:0:2);
вещественные числа нужно выводить именно по такому формату

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.