Var
s: string := 'Мышки ели шишки.';
a: set of char := ['а'..'я', 'ё'];
n, i: integer;
begin
s := LowerCase(s) + ' ';
for i := 2 to Length(s) do
if not (s[i] in a) and (s[i-1]='и') then
n := n + 1;
writeln(n);
<span>end.</span>
Ответ:
Объяснение:
program N1;
var a, b: integer;
begin
readln(a, b);
if (a div 10 + a mod 10) > (b div 10 + b mod 10) then
writeln ('Сумма цифр ', a, ' больше')
else
writeln ('Сумма цифр ', b, ' больше');
end.
<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>
const nn=10;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i],' ');
writeln;
for i:=n downto 1 do write(a[i],' ');
end.
const nn=50;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
writeln;
for i:=1 to n do if i mod 2 =0 then write(a[i],' ');
end.