сервис вопросов и ответовПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1)даны 2 числа, заменить второе число нулем, если оно не меньше первого и оставить его
5-9 класс|
|
прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений
Anonimka307
17 окт. 2014 г., 14:47:32 (9 лет назад)
Yaroshko
17 окт. 2014 г., 16:46:25 (9 лет назад)
1)var
a,b:integer;
read(a);
read(b);
if b>=a then
b:=0;
write(a, ' ', b);
end.
2)
var
a,b,c:integer;
read(a);
read(b);
read(c);
if a>0 then
a:=a*a;
if b>0 then
b:=b*b;
if c>0 then
c:=c*c;
write(a, ' ', b, ' ', c);
end.
Ответить
Другие вопросы из категории
мощность алфавита=256.Сколько кбайтов памяти потребуется чтобы сохранить 320 страниц текста содержащего в среднем 256 символов на каждой странице? Помог
ите решить и обьясните пожалуйста,я запуталась ничего не понимаю..(
1. Как можно дать информацию о новой одежде? 2. как определить информацию об люди ? 3. Отметь средства информации? А)компьютер,магнитофон , телевизор,
B)книга,тетрадь,дневник С)диск,кассета,флеш-карт 4.Отметь носителей информации? А)камень B) бумага С)диск
Читайте также
Помогите пожалуйста Решить 2 задачи на языке Паскаль! 1) По данному числу N распечатайте все целые степени двойки, не
превосходящие N, в порядке возрастания.
Операцией возведения в степень пользоваться нельзя!
2)
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.
решите пожалуйста задачи на языке pascal abc net.
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.
Ребят задача на языке Pascal...
Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.
Вы находитесь на странице вопроса "ПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1)даны 2 числа, заменить второе число нулем, если оно не меньше первого и оставить его", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.