Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 8, средняя оценка - 4.63
irean
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 30
#1

Введиет число, напечатайте 1, если число четное, и 0 если число нечетное - Pascal

28.11.2009, 15:41. Просмотров 1225. Ответов 10
Метки нет (Все метки)

Помогите Please решить
1)Введиет число, напечатайте 1,если число четное ,и 0 если число нечетное.
2)Напишите программу ,которая требует ввода времени и в зависимости от введенного значения,желает доброго утра,доброго дня, доброго вечера или спокойной ночи.
3) напечатайте 20 первых степеней числа 2.
4)дана строка символов.заменить все вхождения слова "осень " на "лето"
5) прочитать файл и вывести его задом наперед

заранее спасибо)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 15:41
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Введиет число, напечатайте 1, если число четное, и 0 если число нечетное (Pascal):

Вывести на экран наибольшее четное число, если хотя бы одно такое число есть - Pascal
Даны три целых числа. Вывести на экран наибольшее четное число, если хотя бы одно такое число есть, в противном случае сообщить об...

Дан ряд чисел от 7 до -7, с шагом 0, 5 (арифметическая прогрессия). Нужно сравнить каждое число с 0. Если <0 то это число *5, если нет, то /5. - Pascal
Дан ряд чисел от 7 до -7, с шагом 0, 5 (арифметическая прогрессия). Эти числа выводим. Нужно сравнить каждое число с 0. Если &lt;0 то это...

Если Число M делится на число N без остатка то M*5 если с остатком то M/5 - Pascal
var M,N:integer; begin writeln('Введите числа'); readln(M,N); if M mod N=0 then writeln (M*5) else writeln(M/5);...

Получить число Y, которое равно половине X, если X — четное - Pascal
у меня сразу 2е задачи будет. не могу решить перва 3ву4ит так: Ввести целое число X , получить число Y , которое равно...

Переменной L присвоить значение True, если в массиве нечетное число элементов - Pascal
Создать файл, содержащий массив целых чисел. Определить количество элементов массива. Переменной L присвоить значение True, если в массиве...

Вычислить Z=(sign(x)+sign(y))∙sign(x+y), где -функция определения знака числа, принимающая значение 1, если число а- положительное; -1, если число - Pascal
Вычислить Z=(sign(x)+sign(y))∙sign(x+y), где -функция определения знака числа, принимающая значение 1, если число а- положительное; -1,...

10
TAVulator
3948 / 1106 / 70
Регистрация: 27.07.2009
Сообщений: 3,443
28.11.2009, 15:43 #2
1.
Pascal
1
2
readln(n);
If odd(n) then write('0') else write('1');
1
кот Бегемот
Платежеспособный зверь
8207 / 3778 / 691
Регистрация: 28.10.2009
Сообщений: 9,635
28.11.2009, 15:48 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
1.
Pascal
1
2
3
4
5
6
var
a:integer;
begin
readln(a);
if a mod 2=0 then writeln(1)else writeln(0);
end.
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
a :longint;
i:integer;
begin
a:=1;
for i:=1 to 20 do
begin
a:=a*2;
writeln (a);
end;
end.
1
irean
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 30
28.11.2009, 15:51  [ТС] #4
TAVulator,alexevt
спасибо)
0
mpcrafter
9 / 9 / 2
Регистрация: 16.11.2009
Сообщений: 44
28.11.2009, 15:55 #5
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program help;
uses crt;
var i:byte; X:extended;
begin
clrscr;
writeln(' Pechataem 20 stepenei chisla 2:');
readln;
x:=1;
for i:=1 to 20 do
    begin
    x:=x*2;
    write(' ',x:0:0);
    end;
readln;
end.
Добавлено через 1 минуту
только не забудь выставить в опциях - Компилер Х напротив 8087\80287
1
Тамила
750 / 544 / 84
Регистрация: 12.11.2009
Сообщений: 1,100
28.11.2009, 15:56 #6
1
Pascal
1
2
3
4
5
6
7
8
uses crt;
var n:integer;
begin clrscr;
write('n=');
read(n);
if n mod 2=0 then writeln(1) else writeln(0);
readkey;
end.
1
irean
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 30
28.11.2009, 15:59  [ТС] #7
mpcrafter,
Тамила
спасибо))
0
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
28.11.2009, 16:21 #8
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var x:integer;
 begin
  ClrScr;
  Writeln('Введите время(только целые числа)....');
   Readln(x);
    if (x>0) and (x<24) then
     begin
      7..12:write('Доброе утро!');
      12..18:write('Добрый день!');
      18..21:write('Добрый вечер!');
      21..23:write('Спокойной ночи!');
      0..6:write('Спокойной ночи!');
     end;
     end
    else
     Writeln('Ошибка!');
   Readln;
  end.
1
кот Бегемот
Платежеспособный зверь
8207 / 3778 / 691
Регистрация: 28.10.2009
Сообщений: 9,635
28.11.2009, 16:35 #9
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
a,s:string;
i:integer;
begin
writeln('vvedite stroku');
readln(a);
a:=' '+a+' ';
for i:=length(a) downto 1 do
if copy(a,i,7)=' осень ' then
begin
delete(a,i+1,5);
insert('лето',a,i+1);
end;
writeln(a);
end.
1
irean
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 30
28.11.2009, 16:42  [ТС] #10
Snoopy
у меня выходит ошибка на 7..12:write('Доброе утро!');
пишет error unknown identifier(Неизвестный идентификатор. Этот идентификатор не был описан.)
0
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
28.11.2009, 16:44 #11
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
я самое главное забыл))))простите
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var x:integer;
 begin
  ClrScr;
  Writeln('Введите время(только целые числа)....');
   Readln(x);
    if (x>0) and (x<24) then
     begin
       case x of //вот это
      7..12:write('Доброе утро!');
      12..18:write('Добрый день!');
      18..21:write('Добрый вечер!');
      21..23:write('Спокойной ночи!');
      0..6:write('Спокойной ночи!');
     end;
     end
    else
     Writeln('Ошибка!');
   Readln;
  end.
1
28.11.2009, 16:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 16:44
Привет! Вот еще темы с ответами:

В заданном предложении удалить среднюю букву, если длина строки - нечетное число - Pascal
16.в заданном предложении удалить среднюю букву, если длина строки нечетное число. Новый текст вывести на печать.

Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно отрицательное и четное число - Pascal
Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно отрицательное и четное число.

Указать количество дней месяца, если дано номер месяца - а (целое число от 1 к 12) и целое число n (номер года). Если окажется, что введенные даные не - Pascal
Указать количество дней месяца, если дано номер месяца - а (целое число от 1 к 12) и целое число n (номер года). Если окажется, что...

Поменять местами первое число последовательности и второе число , если указанные элементы имеют разные знаки - Pascal
Поменять местами первое число последовательности и второе число , если указанные элементы имеют разные знаки и модуль их разности не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru