1.
uses crt;
var x,y,z:integer;
begin
write('x:'); readln(x);
write('y:'); readln(y);
write('z:'); readln(z);
write('x*y*z=',x*y*z);
<span>end.
2.
uses crt;
var x:integer;
begin
write('Введите число:'); readln(x);
if x mod 7=0 then writeln('YES')
else writeln('NO');
<span>end.
3.
uses crt;
var n,x,sum:integer;
begin
write('N:'); readln(n);
sum:=0;
for x:=1 to N do
sum:=sum+x;
write(sum);
<span>end.</span></span></span>
Программное обеспечение, софт
а если главная программ, на которой пишутся остальные, то это- операционная система
//Pascal ABC.NET v3.0 сборка 1111
//"Школьный" вариант, первая блок-схема
Var
a,b,c:integer;
begin
read(a,b,c);
if (a=b) and (b=c) then writeln('=') else
begin;
if a>b then
if a>c then writeln(a);
if b>a then
if b>c then writeln(b);
if c>a then
if c>b then writeln(c);
end;
<span>end.
//Вариант для любителей оккультизма, вторая блок-схема
begin
var se:=ReadArrReal(3);
if se.Sum()/se.Average()=se.Average() then writeln('=') else writeln(se.Max);
end.<span>
Пример ввода:
3
3
3
Пример вывода:
=</span></span>
Че то подчеркнуть надо ???
В принципе, решение формально арифметически правильное. НО ведь задача нереальна.
1. Как правило, резидентам законодательно запрещено осуществлять на территории своего государства сделки не в валюте государства, значит эта сделка была либо серой(на бумаге одно, в реале другое), либо сделка осуществлялась на территории другого государства, где покупатель был нерезидентом.
2. Таких ОГРОМНЫХ процентов по депозитным валютным вкладом НЕ СУЩЕСТВУЕТ В ПРИНЦИПЕ, это же около 300% годовых в валюте! Это под какие же процены банк должен выдавать кредиты, чтобы привлечённые ресурсы были рентабельные, да и кто их под такие проценты возьмёт!. Реальные проценты по депозитным вкладам 5-10% ГОДОВЫХ.
Я не случайно написал этот комментарий, ведь если по физике вам предложат задачу, ну например, такую "Сколько времени продлится полет на Марс, если расстояние до него 60000000км, а скорость космолёта 500000км/с", вы ведь не будете её решать, потому что такой скорости не может быть. Так и здесь: таких процентов не может быть! Поэтому решать такую задачу нельзя, она описывает не существующие объекты(ситуацию).
Вот и всё!
Успехов!