Помогите пожалуйста!!! Решить задачу в Паскале. Это срочно. Заранее спасибо! - №20634076

Помогите пожалуйста!!! Решить задачу в Паскале. Это срочно. Заранее спасибо!
- Предмет:
  Информатика
- Автор:
  gabbyn8w2
- 5 лет назад

Ответы 1

program n1; var a, x: integer;begina:=random(9999);writeln(a);if a>999 then x:=a div 1000;if (a<999) and (a>99) then x:=a div 100;if (a<99) and (a>9) then x:=a div 10;if a<10 then x:=a;writeln(x);end.
- Автор:
  phoebevilla
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

Розв'яжи задачу. У кіоск привезли 7 ящиків яблук .по 8 кг у кожном .і 5 ящиків груш .по 6 кг у кожному.Скільки кілограмів груш і яблк привезли в кіоск?
- Предмет:
  Математика
- Автор:
  bria5gaf
- 5 лет назад
- Ответов:
  
  3
- Смотреть
Complete the questions with the question tags.

1. You have already been to this place, __?
2. Tom and Ken quarrel very often, __?
3. Your new classmate plays the guitar, __?
4. Nick enjoyed taking part in different quests and competition, __?
5. You were at home yesterday, __?
6. You are going with us __?
7. You are good at keeping secrets, __?
8. It's freezing today, __?
9. You have already apologized for your behavior, __?
10. Your brother looks very much like you, __?
- Предмет:
  Английский язык
- Автор:
  yahir
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Что по мнению антропологов в истории древнего человека около 60000 лет назад определило появление и развитие у него музыкальных способностей
- Предмет:
  История
- Автор:
  louiserickson
- 5 лет назад
- Ответов:
  
  0
- Смотреть
Срочно!!! Составь слово из всех следующих букв: f, i, e, d, r, h.
- Предмет:
  Английский язык
- Автор:
  xavierxutb
- 5 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years