program
HelloWorld;
var n:array
[1..10] of integer;
var c:
integer;
var i:
SmallInt;
begin
c:=1;
for i:=1 to 10 do
n[i] := random(10); //заполняем случайными данными
for i:=1 to
10 do
if n[i] > 0 then c:=c*n[i];
end.
#include <stdio.h>
#define pi 3.14
int main(void){
double S, h, r;
printf("Введите высоту цилиндра: "); scanf("%f", &h);
printf("Введите радиус: "); scanf("%f", &r);
S = 2.0 * pi * h * r;
printf("Площади боковой поверхности цилиндра равна %.2f", S);
return 0;
}
<HTML>
<HEAD>
<SCRIPT>
function btnClick()
{
s1=""; s2="";
var mas=["кот",123,"рыба",4.56,"лев",-71,"варан",9,"сова",123.456];
for (i=0; i<mas.length; i++) {
s1 = s1+mas[i]+" ";
if (mas[i]*1 == mas[i]) s2 = s2+mas[i]+" ";
};
document.frm.res1.value=s1;
document.frm.res2.value=s2;
}
</SCRIPT>
</HEAD>
<BODY>
<FORM name=frm>
<INPUT type="button" value="Щелкни здесь!"
onClick="btnClick();">
<P>
<H1>Массив:</H1>
<TEXTAREA name="res1" cols="50" rows="5">
</TEXTAREA>
<P>
<H1>Результат:</H1>
<TEXTAREA name="res2" cols="50" rows="5">
</TEXTAREA>
</FORM>
</BODY>
</HTML>
Бутер
1. Взять доску
2. Взять колбасу
3. Отрезать два кругляша
4. Взять сыр
5. Отрезать один ломтик
6. Взять хлеб
7. Взять масло
8. Намазать масло на хлеб
9. Положить на хлеб с маслом колбаску
10. Положить на хлеб с маслом и колбаской сыр
11. Положить на хлеб с маслом, колбаской и сыром ещё одну колбаску
12. Пожелать себе бон аппети))
var a:integer;
begin
readln (a);
writeln('Цифра десятков: ',abs(a) div 10);
writeln('Цифра единиц: ',abs(a) mod 10);
end.
Пример:
25
Цифра десятков: 2
Цифра единиц: 5
