Вопрос по информатике:
Паскаль.
Кто первый подредактирует код, чтоб работал, тому 30 баллов! Первому!
Программа : Калькулятор
var a,b,c,d:integer;
Begin;
writeln('1 - Сумма');
writeln('2 - Разность');
readln(d);
case d of;
1:
writeln('Напишите числа');
readln(a,b):
C:=a+b;
writeln('Сумма =',c):
2:
writeln('Напишите числа');
readln(a,b):
C:=a-b;
writeln('Разность=',c):
end;
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.04.2015 03:39
- Информатика
- remove_red_eye 8309
- thumb_up 36
Ответы и объяснения 2
Var
a,b,c,d:integer;
begin
writeln('1 - Сумма');
writeln('2 - Разность');
readln(d);
case d of
1: begin
writeln('Напишите числа'); readln(a,b);
C:=a+b; writeln('Сумма =',c)
end;
2: begin
writeln('Напишите числа'); readln(a,b);
C:=a-b; writeln('Разность=',c)
end
end
end.
- 02.04.2015 03:03
- thumb_up 47
Program qwer;
uses crt;
var a,b,c,d:integer;
Begin
writeln('1 - Сумма');
writeln('2 - Разность');
readln(d);
case d of
1: begin
writeln('Напишите числа');
readln(a, b);
c := a + b;
writeln('Сумма = ',c);
end;
2: begin
writeln('Напишите числа');
readln(a, b);
c := a - b;
writeln('Разность = ',c);
end;
end;
end.
- 03.04.2015 11:32
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.