1) записать условие которое является истенным когда только одно из чисел X,Y и Z кратко пяти.
2) в любом трехзначном числе удалить первую цифру а в а в оставшемся двух значном числе переставить цифры
|
|
|
|
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
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
очень очень срочно))))))
1) дана площадь круга. Найти длину окружности ограничивающей этот круг в качестве значения PI испольовать 3.14
2) Даны два действительных числа X и Y арифметические действия над числами пронумерованы 1-сложение 2-вычитание 3-умножение 4-деление. Составить составить программу которая по введенному номеру выполняет то или инное действие над числами.
3) Составить алгаритм решения задач сколько можно купить быков, коров и телят платя а быка 10р за корову 5р а за теленка 0,5р если на 100р надо купить 100 голов скота..
|
|
|
|
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
|
|
|
|
1) Написать программу эмитирующее работу системы примеров платижей учитывая комиссионный сбор.
2) Даны целые числа а1;а2,...an Вынести на печать только те числа для которы ai>i.
3) дан целочисланный массив с колличеством элементов n Сжать массив , выбросив из него каждый второй элемент .
|
|
|
|
[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
|
|
|
|
