Var n, s, d: integer; begin
readln(d);
n := 0;
s := 0;
while s <= 365 do begin
s := s + d;
n := n + 5
end;
write(n)
end.

Нужно переделать программу в

Question

Информатика: Var n, s, d: integer; begin readln(d); n := 0; s := 0; while s = 365 do begin s := s + d; n := n + 5 end; write(n) end. Нужно переделать программу в

niga24 · Accepted Answer

#include

using namespace std;

int main() {

bool repeat = true;

while (repeat) {

double число1, число2, число3, число4, число5;

cout << "'Введите числа: ";

cin >> число1 >> число2 >>число3 >> число4>>число5;

cout << "сумма: " << число1 + число2 +число3 + число4 + число5 << endl;

cout << "еще раз? (t/n) ";

char;

cin >>;

repeat = ( == 't');

}

return 0;

}

Var n, s, d: integer; begin readln(d); n := 0; s := 0; while s <= 365 do begin s := s + d; n := n + 5 end; write(n) end. Нужно переделать программу в

MOGZ ответил

Var n, s, d: integer; begin
readln(d);
n := 0;
s := 0;
while s <= 365 do begin
s := s + d;
n := n + 5
end;
write(n)
end.

Нужно переделать программу в