Я не особо силен в Pascal, так что вот
program Something;
var N: integer;
begin
writeln('Введите номер квартиры ' );
readln(N);
if N mod 3 = 0 then begin
writeln(N div 3); end
else begin writeln((N div 3)+1 ); end;
end.
5 разрезов ну почему обязательно 20 символов? ну с начала отрезаешь и конец вот те 1 см потом так же вот те 2 см и 3 см тоже так
var x,F: real;
i: integer; //вводим переменную-счетчик для цикла for
begin
for i:=1 to 3 do // Цикл будет выполнен 3-1+1=3 раза
begin //начало цикла
Write('введите значение x= ');
readln(x);
if x>3 then F:=-3*x+9 else F:=sqr(x)*x/(sqr(x)+8);
Writeln('F(',x:5:3,')= ', F:5:3);
end; //конец цикла
end.
<span>Язык: Pascal
</span>
Var
a,b:integer;
Begin
read(a,b);
write(a+b);
End.
<span>Язык C++
</span>
<span>#include <iostream>
using namespace std;
int main() {
int a,b;
cin >> a;
cin >> b;
cout << a+b;
return 0;
}
Язык JavaScript
var a = Number(prompt());
var b = Number(prompt());
alert(a+b); // или console.log(a+b);
ИЛИ
alert( Number(prompt()) + Number(prompt()) );
Язык Python
a = int(input())
b = int(input())
print(a+b)
ИЛИ
print( int(input()) + int(input()) )
</span>
Ввод для любой программы выше:
2
5
Вывод:
7
Можно, например, так:
В ячейку B1 ввести формулу =3,14/6
В ячейку A2 - значение 3,14
Все остальные значения получать с помощью формулы вида:
=A2+$B$1
(См. прилагаемый файл)