Var i,p:integer;
begin
i:=11;
p:=1;
while i<=99 do
begin
p:=p*i;
i:=i+2;
end;
writeln(p)
end.
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
<span>#include <stdio.h>
#include <string.h>
int main(void)
{
char s[255];
char *w = NULL, *wmin = NULL;
unsigned min = 1024;
printf("Enter a string: ");
gets(s);
w = strtok(s, " ,.-");
while (w != NULL) {
if (strlen(w) < min) {
min = strlen(w);
wmin = w;
}
w = strtok(NULL, " ,.-");
}
if (wmin != 0) printf(<span>"\n\nMin word: '%s'\nLength: %isymbols\n"</span>, wmin, min);
<span>}</span></span>
"Тачпа́д, се́нсорная пане́ль (англ. touchpad: touch — касаться, pad — подушечка) — указательное (координатное) устройство ввода, предназначенное для управления курсором и отдачи различных команд компьютеру, телефону или другому электронному оборудованию."