Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите решить задачи))))
1) записать условие которое является истенным когда только одно из чисел X,Y и Z кратко пяти.
2) в любом трехзначном числе удалить первую цифру а в а в оставшемся двух значном числе переставить цифры
1 | Автор: 79505872913 | 2012-05-23, 10:54   |  Репутация: [ + 1 ]
1.
var
a,b,c:integer;
l:boolean;
begin
read(a,b,c);
l:=false;
if (a mod 5=0)and(b mod 5<>0)and(c mod 5<>0)or(a mod 5<>0)and(b mod 5=0)and(c mod 5<>0)or
(a mod 5<>0)and(b mod 5<>0)and(c mod 5=0) then l:=true else l:=false;
writeln(l);
end.

2.
var
q,w,a:integer;
begin
read(a);
a:=a mod 100;
q:=a mod 10;
w:=a mod 100 div 10;
writeln(q,w);
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-23, 12:36   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-23, 12:36   |  Репутация: [ + 211 ]
очень очень срочно))))))
1) дана площадь круга. Найти длину окружности ограничивающей этот круг в качестве значения PI испольовать 3.14
2) Даны два действительных числа X и Y арифметические действия над числами пронумерованы 1-сложение 2-вычитание 3-умножение 4-деление. Составить составить программу которая по введенному номеру выполняет то или инное действие над числами.
3) Составить алгаритм решения задач сколько можно купить быков, коров и телят платя а быка 10р за корову 5р а за теленка 0,5р если на 100р надо купить 100 голов скота..
3 | Автор: 79505872913 | 2012-06-06, 05:32   |  Репутация: [ + 1 ]
1.
Const
p=3.14;
var
s,l:real;
begin
read(s);
l:=2*p*sqrt(s/p);
writeln(l);
end.

2.
var
x,y,z:integer;
begin
readln(x,y);
read(z);
if z=1 then writeln(x+y);
if z=2 then writeln(x-y);
if z=3 then writeln(x*y);
if z=4 then writeln(x/y);
end.

3.
алгоритмы бывают разные, думать думаю - умеешь)

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-06-06, 15:58   |  Репутация: [ + 211 ]
1) Написать программу эмитирующее работу системы примеров платижей учитывая комиссионный сбор.
2) Даны целые числа а1;а2,...an Вынести на печать только те числа для которы ai>i.
3) дан целочисланный массив с колличеством элементов n Сжать массив , выбросив из него каждый второй элемент .
5 | Автор: 79505872913 | 2012-06-08, 05:23   |  Репутация: [ + 1 ]
[quote=79505872913]2) Даны целые числа а1;а2,...an Вынести на печать только те числа для которы ai>i.[/quote]

var
a:array[1..100]of integer;
i,n:byte;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>i then write(a[i],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-06-08, 09:09   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: