Помогите, пожалуйста, составить программы1) составить программку, которая вычисляет 30% от

Помогите, пожалуйста, составить программки
1) составить программку, которая вычисляет 30% от введенного числа
2) Составить программу,в которой вводится 2 числа с клавиатуры и считает сколько процентов составляет 1-ое число от 2-го
3) Составить программку, в которой градусы Цельсия переводится в градусы Кельвина
Заранее спасибо!

Задать свой вопрос
1 ответ
1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел одинакова ',s);end.
2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com - znanija.com/task/14923730readmore
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт