Задача 2. Запрограммировать следующий диалог между пользователем и программой: Вариант 1.
Добрый день, дружок. Ты вчера должен был пройти 5 км.
Ты выполнил эту норму? Введи-ка, сколько ты километров:
Молодец. Так держать. В здоровом теле здоровы дух!

Вариант 2.
Добрый день, дружок. Ты вчера должен был пройти 5 км.
Ты выполнил эту норму? Введи-ка, сколько ты километров:
Ты не заработал на завтрак.
Тебе стоит пройти оставшиеся … километров.

Вместо двоеточия программа должна выводить число не пройденных километров.

Задача 3. Вычислить значение переменной F по одной из формул при выполнении определенного условия.

до вас

Ответы

Ответ дал: Гость

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of 1 : write ( 'на дереве сидела ' ,n , ' ворона' ); 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' ); 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' ); end else write ( 'ветка обломилась! ' ); end; readln; end.

Ответ дал: Гость

в секунду передается 512кбит=512/8кбайт=64кбайт

за четыре минуты передалось 4*60*64=15360кбайт

в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт

ответ: 15 мегабайт

Ответ дал: Гость

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer; a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 ); for i : =1 to n do begin x : =xc +round (rc * cos (a *i ) ); y : =yc -round (rc * sin (a *i ) ); circle (x ,y ,ro ); end; end.

Ответ дал: Гость

2 единицы в двоичной записи числа 1025

10000000001