Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
irean
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 30
1

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

28.11.2009, 15:41. Просмотров 1814. Ответов 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
Ответы с готовыми решениями:

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

Даны три целых числа. Вывести наибольшее четное число, если хотя бы одно такое число есть
Даны три целых числа. Вывести наибольшее четное число, если хотя бы одно такое...

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

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

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

10
TAVulator
Эксперт Pascal/Delphi
3985 / 1133 / 174
Регистрация: 27.07.2009
Сообщений: 3,532
28.11.2009, 15:43 2
1.
Pascal
1
2
readln(n);
If odd(n) then write('0') else write('1');
1
кот Бегемот
Платежеспособный зверь
8502 / 3938 / 1536
Регистрация: 28.10.2009
Сообщений: 10,228
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 / 3
Регистрация: 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
Тамила
751 / 545 / 209
Регистрация: 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 / 1071 / 383
Регистрация: 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
кот Бегемот
Платежеспособный зверь
8502 / 3938 / 1536
Регистрация: 28.10.2009
Сообщений: 10,228
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 / 1071 / 383
Регистрация: 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

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

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

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное...


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

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

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