Каков вопрос - таков ответ:
var x,y:integer;
begin
write('x = ');
readln(x);
y:=random(1000)+1;
writeln('Делю число ',y,' на ',x,': ',y,'/',x,' = ',y/x);
end.
Пример:
<span>x = 5
Делю число 595 на 5: 595/5 = 119</span>
Вот тебе один ромб, проделывай в последовательности изменив пару координат.
Program rs_3;
Uses Drawman;
Begin
Field (11,12);
ToPoint (2,1);
Pen Down;
ToPoint(2,1); ToPoint(5,1);
ToPoint(5,1); ToPoint(6,2);
ToPoint(6,2); ToPoint(6,5);
ToPoint(6,5); ToPoint(5,6);
ToPoint(5,6); ToPoint(2,6);
ToPoint(2,6); ToPoint(1,5);
ToPoint(1,5); ToPoint(1,2);
ToPoint(1,2); ToPoint(2,1);
Pen Up;
ToPoint(3,2);
PenDown;
ToPoint(3,2); ToPoint(2,3);
ToPoint(2,3); ToPoint(2,4);
ToPoint(2,4); ToPoint(3,5);
ToPoint(3,5); ToPoint(4,5);
ToPoint(4,5); ToPoint(5,4);
ToPoint(5,4); ToPoint(5,3);
ToPoint(5,3); ToPoint(4,2);
ToPoint(4,2); ToPoint(3,2);
End.
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int s1,m1,h1,s2,m2,h2;
cin>>h1>>m1>>s1>>h2>>m2>>s2;
s1=s1+m1*60+h1*3600;
s2=s2+m2*60+h2*3600;
cout<<s2-s1;
cin.get();
cin.get();
return 0;
}
<u>Задание 1.</u>
var
A, B, C, F: boolean;
i, j, k: integer;
begin
for i := 0 to 1 do
for j := 0 to 1 do
for k := 0 to 1 do
begin
A := (i = 1); B := (j = 1); C := (k = 1);
F := ((A and B) and C) = (A and (B and C));
Writeln('A=', A, ', B=', B, ', C=', C, ', результат сравнения:', F)
end
end.
<u>Результат выполнения программы:</u>
A=False, B=False, C=False, результат сравнения:True
A=False, B=False, C=True, результат сравнения:True
A=False, B=True, C=False, результат сравнения:True
A=False, B=True, C=True, результат сравнения:True
A=True, B=False, C=False, результат сравнения:True
A=True, B=False, C=True, результат сравнения:True
A=True, B=True, C=False, результат сравнения:True
A=True, B=True, C=True, результат сравнения:True
<u>Задание 2.</u>
var
a, b, c: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c)
end.
<u>Результат выполнения программы:</u>
100
147
