постройте дерево каталога C:. Главное/Образование/Математика C:Главное отчёты год. xls C:главное отчёты подписки. txt​

рргшлоиртьь лошдлиолдл

За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на пяти язы­ках про­грам­ми­ро­ва­ния.

Бей­сик Python

DIM k, s AS INTEGER

s = 0

FOR k = 4 TO 8

s = s + 7

NEXT k

PRINT s

s = 0

for k in range(4,9):

s = s + 7

print (s)

Пас­каль Ал­го­рит­ми­че­ский язык

var s,k: integer;

begin

s := 0;

for k := 4 to 8 do

s := s + 7;

writeln(s);

end.

алг

нач

цел s, k

s := 0

нц для k от 4 до 8

s := s + 7

кц

вывод s

кон

С++

#include <iostream>

using namespace std;

int main() {

int s = 0;

for (int k = 4; k <= 8; k++)

s += 7;

cout << s;

return 0;

}

Var a, b, c, rez: real;
begin
write('Введите число А: ');
readln(a);
write('Введите число B: ');
readln(b);
write('Введите число C: ');
readln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c;
if (a >= 0) and (b >= 0) then rez := a + b;
if (a >= 0) and (c >= 0) then rez := a + c;
if (b >= 0) and (c >= 0) then rez := b + c;
if (a <= 0) and (b <= 0) then rez := c;
if (b <= 0) and (c <= 0) then rez := a;
if (a <= 0) and (c <= 0) then rez := b;
if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0;
writeln(rez);
end.

Громоздко, но, думаю, покатит