сервис вопросов и ответовнаписать программу для паскаль.С клавиатуры вводятся целые числа.Признаком конца ввода является 0.Изменить знак отрицательных чисел на
10-11 класс|
|
противоположный.Результаты вывести на экран.
Vori26
28 янв. 2014 г., 10:24:10 (10 лет назад)
260975
28 янв. 2014 г., 11:32:05 (10 лет назад)
Предложу решение, основанное на том, что понял из текста)
var a: integer;
begin
writeln('Вводите числа');
a:=1;
while a<>0 do begin
readln(a);
if a<0 then writeln('Противоположное число ',abs(a));
end;
readln
end.
Можно их в массив записывать, если нужно вывести красиво.
Muhhha
28 янв. 2014 г., 13:51:28 (10 лет назад)
var n: integer;
s: string;
begin
writeln('Вводите числа');
repeat
readln(n);
s:= s + IntToStr(abs(n)) + ' '
until n = 0;
writeln(s);
end.
Ответить
Другие вопросы из категории
помогите составить юлок схему к программе Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>b)and(b>c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
написать программу, которая для заданной строки s удаляет из нее последовательность символов, рассположенных между двумя запятыми(считается, что в строке
ровно две запятые)
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
1) Написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Написать программу для ввода значения величины X целого типа, присваивания величине Y действительного типа значения 5.5, вычисления значения величины Z =
X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2
Вы находитесь на странице вопроса "написать программу для паскаль.С клавиатуры вводятся целые числа.Признаком конца ввода является 0.Изменить знак отрицательных чисел на", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.