#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int main()
{
char str[256];
char* pch;
int index = 0;
int letter;
printf("Введите предложение\n");
while ((letter = getchar()) != '\n')
{
<span> str[index++] = letter;
</span> }
pch = strtok(str, " ,.-");
while (pch != NULL)
{
if(strcmp(pch, "привет"))
printf("%s\n", pch);
pch = strtok(NULL, " ,.-");
}
return 0;
<span>}
</span>
Program n1;
var r: real;
begin
writeln('введите ребро куба');
readln(r);
writeln('S грани =',sqr(r));
writeln('S полной поверхности =',sqr(r)*6);
writeln('V куба =',r*r*r);
end.
Я не знаю через массив или как это писать, поэтому напишу простейший вариант
program n_pologitelnih;
uses crt;
var i,n,k,a:integer;
begin
clrscr;
write('Введи N=>> ');
readln(n);
for i:=1 to n do
begin
write('Введи число');
readln(a);
if a>0 then k:=k+1;
end;
write('Положительных чисел из ',n,' введенных - ',k);
readln;
end.
Решение будет представлено в видео изображения:<span />
//PascalABC.Net 3.1.0.1200
var
yesterday, before_yesterday, all, this_day, days: integer;
begin
yesterday := 6;
before_yesterday := 6;
all := yesterday + before_yesterday;
days := 2;
repeat
days += 1;
this_day := yesterday + before_yesterday + 3;
all += this_day;
if days mod 10 = 0 then all := trunc(all * 0.95);
before_yesterday := yesterday;
yesterday := this_day;
until all > 1500;
writeln('days = ', days);
end.
