Program massa;var m, a: real; begin writeln('Введите массу.'); readln(m); writeln('Введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна, 5 - центнер.'); readln(a); writeln('Введённое вами значение равно '); if a=1 then write(m, ' килограмм.'); if a=2 then write(m/1000000, ' килограмм.'); if a=3 then write(m/1000, ' килограмм.'); if a=4 then write(m*1000, ' килограмм.'); if a=5 then write(m*100, ' килограмм.'); end.
меее, немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок
Веб-форум - веб-приложение, для организации общения между пользователями, которое имеет следующую иерархическую структуру: Разделы - Темы - Сообщения. Отдельно взятая тема представляет по своей сути гостевую книгу. Также, внутри темы могут устраиваться опросы. Сообщению каждого пользователя другой пользователь может поставить оценку. На основании этих оценок а также общего количества сообщений и времени, проведенного пользователем на форуме, происходит подсчет и определение статуса пользователя. Информация предоставляется в виде сообщений, которые могут быть оформлены либо в табличной либо в древовидной форме. Ответы в древовидной форме подразумевают указание участником поста другого участника, на который он отвечает. На основании этих данных строится дерево ответов. В табличной форме ответы представлены просто в виде таблицы сообщений в открытой теме. Большинство форумов имеет систему личных сообщений, позволяющую зарегистрированным пользователям общаться индивидуально. Также, администратор форума может ограничить для незарегистрированных пользователей ряд функционала: к примеру закрыть доступ к определенным разделам форума, закрыть возможность писать ответы незарегистрированному пользователю или просматривать ссылки или файлы, прикрепленные к сообщениям. Как правило, на форуме существует сводка правил общения, за нарушение которых Администратор или Модераторы могут временно или навечно заблокировать вашу учетную запись.
#include <iostream>
using namespace std;int main(){setlocale(LC_ALL, "Russian");int in_user;cout << "На каком вы курсе?" << endl;while(cin >> in_user){if(in_user > 0 && in_user < 12){cout << "Я учусь на "<< in_user << "-курсе";break;}else{cout << "С тобой все в порядке? Нет такого курса" << endl<< "На каком вы курсе?" << endl;}}return 0;}
Var n,a,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if a mod 4 = 0 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
n = 5
Вводите числа:
15
24
73
48
94
k = 2
