4 года назад

ПОМОГИТЕ,ПОЖАЛУЙСТА составить программу, которая выводит коды символов от а до я

Знания

Информатика

1 ответ:

Порох павел [7]4 года назад

0 0

Var a : Char;
Begin
For a:='а' to 'я' do Writeln(a,' ',Ord(a));
end.

Читайте также

Дан одномерный массив [-50:50], нужно вывести числа больше 7, программа на Паскаль

donnaro [2.7K]

Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.

0 0

3 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА - ПАСКАЛЬ! через IF С клавиатуры вводятся радиус шара, высота цилиндра. Радиус шара и радиус цилиндра одинак

Елена Литва [32]

Var r,h:integer;
v1,v2:real;
begin
writeln('Ввод радиуса: ');
readln(r);
writeln('Ввод высоты цилиндра: ');
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.

0 0

4 года назад

исполнителя Удвоитель две команды,У исполнителя Удвоитель две команды, которым присвоены номера:1. умножь на 2.2. прибавь 3Перва

ValeraAnm [4]

Нас учили такие задачи решать с конца. Смотри у тебя дано число 38 (его можно разделить на 2 или вычесть 3). Поскольку оно делиться на 2 нацело используем деление. Получаем 19 (на 2 не делиться следовательно вычитаем 3)=16 и т.д... И у тебя скорее всего опечатка, потому что как ни крут и за 5 шагов не выполнить. Скорее всего нужно из числа 2 в 38. ну или решение должно занять 6 шагов, что очень вряд ли
1 команда 38/2=19
2 команда 19-3=16
1 команда 16/2=8
1 команда 8/2=4
1 команда 4/2=2
1 команда 2/2=1
Т.к начинали с конца считать полученный набор команд записывается с конца : 111121

0 0

4 года назад

Какое количество информации будет получено: При бросании шестигранного кубика; При игре в рулетку с 64-мя секторами?

Дима Окатов [7]

9 бит, т.к. 64 это 2 в 6 степени и 6 приблизительно 2 в 3, 6+3=9 бит

0 0

4 года назад

C# Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количе

Кристинка1

bool loop = true;

int count = 0;

int sum = 0;

while (loop){

int i = Convert.ToInt32(Console.ReadLine());

sum += i;

count++;

if (i == 0){

loop = false;

Console.WriteLine(sum);

Console.WriteLine(sum/count);

}

0 0

4 года назад