Program Primer;
var sum, a: real;
begin
sum:=0;
а:=0;
repeat
sum:=sum+a;
write('Введите число');
readln(a)
until a < 0
writeln (sum);
readin
end.
Какое число получится, если
ввести ряд чисел

Question

Информатика: Program Primer; var sum, a: real; begin sum:=0; а:=0; repeat sum:=sum+a; write( Введите число ); readln(a) until a 0 writeln (sum); readin end. Какое число получится, если ввести ряд чисел

рорлд · Accepted Answer

Varn, m, a, b, cost: integer;

begin

Readln(a, b);// a - длина плитки, b - ширина
Readln(n, m); // n - длина стены, b - ширина
readln(cost);// стоимость 1й плитки
Writeln((n + a - 1) div a * (m + b - 1)div b, ' ', cost*(n + a - 1) div a * (m + b - 1)div b);
// выводит количество плиток и их стоимость
end.

#include <bits/stdc++.h>

using namespace std;

int main(){
int a, b;
cin >> a >> b;
int n, m;
cin >> n >> m;
int cost;
cin >> cost;
cout << (n + a - 1) / a *(m + b - 1)/b << ' ' << (n + a - 1)/a *(m + b - 1)/b * cost;
}

Program Primer;var sum, a: real;beginsum:=0;а:=0;repeatsum:=sum+a;write('Введите число');readln(a)until a < 0writeln (sum);readinend.Какое число получится, есливвести ряд чисел

MOGZ ответил

Program Primer;
var sum, a: real;
begin
sum:=0;
а:=0;
repeat
sum:=sum+a;
write('Введите число');
readln(a)
until a < 0
writeln (sum);
readin
end.
Какое число получится, если
ввести ряд чисел