Pascal ABC. Структура программы. Типы. Операторы ввода и вывода

Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору v2 км/ч и под гору v3 км/ч. Время движения соответственно t1, t2 и t3 ч. Какой путь прошел пешеход?

1. Ввести v1, v2, v3, t1, t2, t3. 2. S1 := v1 * t1. 3. S2 := v2 * t2. 4. S3 := v3 * t3. 5. S := S1 + S2 + S3. 6. Вывести значение S. 7. Конец.

program z1; var v1,v2,v3,t1,t2,t3:integer; s1,s2,s3,s:real; begin writeln('Введите v1,v2,v3,t1,t2,t3'); read(v1,v2,v3,t1,t2,t3); s1:=v1*t1; s2:=v2*t2; s3:=v3*t3; s:=s1+s2+s3; writeln('s=',s:5:5); end.

Найти значение S:

Program z2; var a,b,s:real; begin write (Введите а'); read (a); write (Введите b'); read (b); s:= a*sqrt(sqr(b)-sqr(a)); write ('S= ',s:4:2); end.

Величинам А и В соответствуют значения а и b; необходимо величине А присвоить значение b и величине В значение а.

program z3; var a,b,c:integer; begin writeln('Введите a, b'); read(a,b); c:=a; a:=b; b:=c; writeln('a=',a,' b=',b); end.

Найти произведение цифр заданного трехзначного числа.

program z4; var p,n,a,b,c:integer; begin write('введите трехзначное число '); readln(n); a:=n mod 10; c:=n div 100; b:= (n div 10) mod 10; p:=a*b*c; writeln('произведение цифр данного числа равно ',p); end.

Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. Например, для числа 341 таким будет 143.