Program _1;
var
dollar,euro,rub:real;
begin
writeln('Введите сумму в рублях');
readln(rub);
dollar:=rub/57;
euro:=rub/68;
writeln('Курс рубля в долларах: ',dollar);
writeln('Курс рубля в евро: ',euro);
end.
#include <iostream>
using namespace std;
int main () {
int a, b;
cin >> a;
if (a < 100){
cout << "Vvedite cheslo > 100" << endl;
}
else {
b = a * 0.01;
}
cout << a << "CM" << endl;
cout << b << "M" << endl;
}
Вот, если устроит c++
Выводит на экран слово "привет".
Var b,c,k:integer;
a:array[1..100] of integer;
d:real;
begin
k:=0;
b:=0;
for c:=1 to 100 do
begin
a[c]:= random(41)-20;
writeln('a[',c,']= ',a[c]);
if a[c]>0 then
begin
b:=b+a[c];
k:=k+1;
end;
end;
d:=b/k;
writeln('Среднее арифметическое элементов массива равняется ',d);
end.<span>
</span>