Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа

06.03.2011, 20:47. **Показов** 24899. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Пожалуйста, помогите мне решать задачи;(
1. Напишите программу, котарая вводит координаты трех точек - середин сторон треугольника и выводит координаты вершин треугольника.
2. Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа.
3. Составьте программу, которая определяет, является ли введенный символ гласной или согласной буквой латинского алфавита.
4. Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник. Если да, то будет ли он прямоугольным.
5. Натуральное число из n цифр называется числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу. Получить все числа Армстронга, состоящие из четырех цифр.
6. Дано натуральное число n. Определить, образуют ли все цифры числа возрастающую последовательность.
7. Дано натуральное число n. Вычислите значение выражения: 1!/1+(2!/1+(1/2))+...+(n!/1+(1/2)+...+(1/n)).
8. Даны две вещественные квадратные матрицы порядка n. Применить к данным матрицам процедуру, печатующую элементы, равные максимальному, и их индексы.
9. Даны 30-элементные вещественные векторы x,y,z. Вычислить величину (x,x) - (y,z), где (p,q) скалярное произведение векторов p и q.
10. Дана строка, состоящая из нескольких слов, между соседними словами не менее одного пробела, за последним словом точка. Найти все слова, содержащие подстроку 'рок'.
11. Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок.

@Brotherhood6 · 07.03.2011, 01:18

2

Pascal

var i,j:integer;
begin
write('3x znschnoe chislo');readln(i);
j:=(i mod 10)*100+((i mod 100)div 10)*10+i div 100;
writeln(j);
end.

Добавлено через 9 минут
4.

Pascal

var a,b:byte;
begin
write(' введите углы a,b ');readln(a,b);
if (a=0) or (b=0) then writeln(' ошибка, треугольник не существует ') else
if a+b<180 then begin
if a+b=90 then writeln(' треугольник прямоугольный ') else writeln(' треугольник не прямоугольный ');end else
writeln(' треугольник не существует ');
end.

Добавлено через 1 час 45 минут
5

Pascal

uses crt ;a
var i,n:integer;  j:integer;
begin
clrscr;
readln(n) ;
for i:=1000 to 9999 do begin
j:=trunc(exp(n*ln(i div 1000+ (i mod 1000)div 100 +(i mod 100)div 10 + i mod 10 )));
if i=j then write(i,'   ');
end;end.

@Просто лис · 07.03.2011, 07:13

11 Задача
Не получилось умно сделал хитро

Pascal

Var st,st1,st2,st3:string;
i:integer;
Begin
st2:='';
i:=1;
Writeln('vvedite stroky');
readln(st);
While st1<>'(' do
begin
st1:=copy(st,1,1);
delete(st,1,1);
end;
while st3<>')'  do
begin
st2:=st2+copy(st,i,1);
st3:=copy(st,i+1,1);
i:=i+1;
end;
Writeln(st2);
readln;
end.

@Puporev · 07.03.2011, 07:40

Pascal

p1:=pos('(',s);
p2:=pos(')',s);
if(p1=0)or(p2=0)or(p2<p1) then write('Условие невыполнимо')
else if p2-p1=1 then write('В скобках нет текста')
else write(copy(s,p1+1,p2-p1-1));

@Просто лис · 07.03.2011, 09:37

3 задача:

Pascal

Var st:char;
i:integer;
Begin
Writeln('vvedite simvol');
repeat
Readln(st);
i:=length(st);
until i<2;
if ((st='a') or (st='e') or (st='o') or (st='i') or (st='u') or (st='y'))
then writeln('glasnaya')
else Writeln('soglasnaya');
readln;
end.

Добавлено через 4 минуты

Сообщение от Puporev

p1:=pos('(',s);
p2:=pos(')',s);
if(p1=0)or(p2=0)or(p2<p1) then write('Условие невыполнимо')
else if p2-p1=1 then write('В скобках нет текста')
else write(copy(s,p1+1,p2-p1-1));

Спасибо, учту (правда сейчас пока времени нет)

Добавлено через 1 час 22 минуты
11 задача (модернизированая с помощью модератора)

Pascal

Var st,st1,st2,st3:string;
i,p1,p2:integer;
Begin
st2:='';
i:=1;
Writeln('vvedite stroky');
readln(st);
p1:=pos('(',st);
p2:=pos(')',st);
if(p1=0)or(p2=0)or(p2<p1) then write('Условие невозможно')
else if p2-p1=1 then write('В скобках нет текста');
While st1<>'(' do
begin
st1:=copy(st,1,1);
delete(st,1,1);
end;
while st3<>')'  do
begin
st2:=st2+copy(st,i,1);
st3:=copy(st,i+1,1);
i:=i+1;
end;
Writeln(st2);
readln;
end.

Добавлено через 28 минут
Моя версия 4 задачи:

Pascal

Var a,b:byte;
begin
Writeln('vvedite 2 ugla');
repeat
readln(a,b);
until (((a>=0) or (a<=180)) and ((b>=0) or (b<=180)));
if (((a>90) and (b>90)) or ((a=90) and (b=90)) or ((a=90) and (b>90)) or ((a>90) and (b=90)))
then Writeln('nevozmozhno posroit')
else
if (((a=90) and (b<90)) or ((a<90) and (b=90)))
then Writeln('treygolnik pramoi')
else writeln('posroenie vozmozhno');
readln;
end.

Мариса
		1
	Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа 06.03.2011, 20:47. Показов 24899. Ответов 4 Метки нет (Все метки) Пожалуйста, помогите мне решать задачи;( 1. Напишите программу, котарая вводит координаты трех точек - середин сторон треугольника и выводит координаты вершин треугольника. 2. Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. 3. Составьте программу, которая определяет, является ли введенный символ гласной или согласной буквой латинского алфавита. 4. Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник. Если да, то будет ли он прямоугольным. 5. Натуральное число из n цифр называется числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу. Получить все числа Армстронга, состоящие из четырех цифр. 6. Дано натуральное число n. Определить, образуют ли все цифры числа возрастающую последовательность. 7. Дано натуральное число n. Вычислите значение выражения: 1!/1+(2!/1+(1/2))+...+(n!/1+(1/2)+...+(1/n)). 8. Даны две вещественные квадратные матрицы порядка n. Применить к данным матрицам процедуру, печатующую элементы, равные максимальному, и их индексы. 9. Даны 30-элементные вещественные векторы x,y,z. Вычислить величину (x,x) - (y,z), где (p,q) скалярное произведение векторов p и q. 10. Дана строка, состоящая из нескольких слов, между соседними словами не менее одного пробела, за последним словом точка. Найти все слова, содержащие подстроку 'рок'. 11. Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок.

	07.03.2011, 09:37

Опции темы