Свойства комьпютера: Версия windows, система, сведения об активации, оборудование, быстродействие и т.д., Мои документы: тип, размещение, размер, размещение конечной папки....Рабочий стол: заставка, темы, оформление, цветовые схемы, разрешение... Др. обьекты в основном размещение и размер, дата последнего изменения.
Paskall:
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.
Для этого используй тип string,то есть строка
program znanija;
var n:string;
k:string;
s:string;
begin
write('Введите название фильма : ');
readln(n);
writeln('Введите название кинотеатра : ');
readln(k);
writeln('Введите время : ');
readln(s);
writeln('Билет на ', n , ' в ', k , ' на ', s , ' забронирован. ');
end.
Введите название фильма : Лига Справедливости
Введите название кинотеатра : Луксор
Введите время : 21:40
Билет на Лига Справедливости в Луксор на 21:40 забронирован.
#include <iostream>
using namespace std;
int main(){ int x,x1,x2,x3,x4,s; cout<<"Введите трехзначное число"<<endl; x = 123; x1=x/10; x2=x%10; x3=x1/10; x4=x1%10; s=x2+x3+x4; cout<<s<<endl;}
Равносторонний треугольник - это треугольник, у которого все стороны равны. Равны также и его высоты.
Нужно знать формулы из математики:
h = a√3/2, S = a²√3/4, r = a√3/6, R = a√3/3.
Вот программа (в Паскале не различают прописные и строчные бувы, поэтому радиус вписанной окружности обозначим как r1):
var a,s,h,r1,R:real;
begin
write('a=');readln(a);
s:=a*a*sqrt(3)/4;
h:=a*sqrt(3)/2;
r1:=a*sqrt(3)/6;
R:=a*sqrt(3)/3;
writeln('S=',s:3:2,' h=',h:3:2,' r=',r1:3:2,' R=',R:3:2);
end.
