ПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1)даны 2 числа, заменить второе число нулем, если оно не меньше первого и оставить его
5-9 класс
|
прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений
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.
Другие вопросы из категории
ите решить и обьясните пожалуйста,я запуталась ничего не понимаю..(
B)книга,тетрадь,дневник С)диск,кассета,флеш-карт 4.Отметь носителей информации? А)камень B) бумага С)диск
Читайте также
превосходящие N, в порядке возрастания.
Операцией возведения в степень пользоваться нельзя!
2)
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.
Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.