название такое просто что бы зашли и посмотрели)))
помогите пожалуйста решить задачки.
1) даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень – положительные (число 0 не изменять)
2) определить стоимость железнодорожного билета туда и обратно, если известно расстояние до пункта назначения и длительность пребывания в нем, а также стоимость в один конец. Учитывая, что если расстояние превышает 1000 километров, а длительность пребывания превышает 7 днец, то железнодорожная компания дает скидку 30%
3) написать программу, которая выводит сумму первых n нечетных чисел натурального ряда 1,3,5..
4) написать программу которая выводит на экран значении функции у=5х2-х+2 для х, изменяющегося в диапозоне от -3 до 3 с шагом 0,5
5) напечать таблицу перевода расстояний их дюймов в сантиметры для значенийот 1 до 10 дюймов с шагом 0,5 дюйма. Формула перевода – 1дюйм=2,54см
спасибо)
Я б на твоём месте всё же переименовал тему Ты думаешь, что участники форума, увидев известный корень в названии топика, сразу ринутся помогать?
Добавлено через 13 мин.
Первая:
var mas:array[1..4] of integer;
a:integer;
begin
randomize;
for mas[4]:=1 to 3 do
begin
a:=mas[4];
mas[a]:=random(50)-25;
if (mas[a]<>0) and (mas[a]<0) then mas[a]:=sqr(mas[a]);
if (mas[a]<>0) and (mas[a]>0) then mas[a]:=(sqr(mas[a])*mas[a]);
writeln(mas[a]);
end;
readln;
end.