Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.
N = 31
c = 1
For b=1 to n
If массив(b) > массив(i) then
If массив(b) > c then
c = a(b)
c2 = a(b-1)
End if
End if
Next
MsgBox c & " " c2
Написано на VBS
30048=3•10000 0•1000 0•100 4•10 8•1
97510=9•10000 7•1000 5•100 1•10 0•1
<span>1) 2*1024*1024*1024/900 = 2386092 файлов</span>
Program Stoimost;
var a,b,s,c :integer;
begin
writeln('Введите стоимость за минуту разговора ');
read(b );
writeln('Введите количество минут ');
read(s);
writeln('Если покупка была совершена в субботу, то введите цифру 1,если в воскресенье, то введите цифру 2, а если в другие дни, то 0 ');
read(a);
if a:=1 then
c:= b*s*0,7;
if a:=2 then
c:=b*s*0,65;
if a:=2 then
c:=b*s;
write(c);
end.
скорее всего не правильно, но попробуй