Цена на молоко. Животновод в начале каждой зимы повышает отпускную цену на молоко на р%, а каждым летом — снижает на столько же процентов. Изменится ли цена на молоко и если да, то в какую сторону и на сколько через n лет
Var q: string; a,i,z,g,b,x,m: Integer; begin z:=0; g:=1; readln(q,a,b,x,m); for i:=1 to length(q) do begin z:=z+q[i]; end; if z<a then writeln('Верно, что сумма цифр меньше А') else writeln('Неверно, что сумма цифр меньше А'); for i:=1 to length(q) do begin g:=g*q[i]; end; if g>b then writeln('Верно, что произведение цифр больше B') else writeln('Неверно, что произведение цифр больше B'); if x=length(q) then writeln('Верно, что число x значеное') else writeln('Неверно, что число x значное'); if q[0]>m then writeln('Верно, что его первая цифра превышает m') else writeln('Неверно, что его первая цифра превышает m') end.
Программа для 1. var n,b,s:integer; begin Write('Введите натуральное число и значение b: '); Read(n,b); if n>b then Writeln('Неверно') else begin s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10 end; if s mod 2=0 then Writeln('Верно') else Writeln('Неверно') end end.
Программа для 2. var k,m,n,b,s:integer; begin Write('Введите натуральное число и значения m,n: '); Read(k,m,n); if k mod n <> 0 then Writeln('Неверно') else begin s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; if s>m then Writeln('Верно') else Writeln('Неверно') end end.
#include "stdafx.h"
#include <stdio.h>//i/o
#include <conio.h> //_getch()
#include <ctype.h> //toupper
int main()
{
long i,n;
float cost, p,buf;
do
{
printf("Vvedite pervonachalnuy stoimost : ");scanf_s("%f",&cost);
printf("Vvedite procent p % : ");scanf_s("%f",&p);
printf("Vvedite n chisl Let : ");scanf_s("%u",&n);
for(i = 0; i < n; i++)
{
printf("Let %u\r\n",i + 1);
buf = cost*p/100;
printf("Stoimost za zimmu + : %f\r\n",(cost += buf));
buf = cost*p/100;
printf("Stoimost za zimmu -: %f\r\n",(cost -= buf));
}
printf("Stoimost %u Let %f\r\n",i,cost);
printf("Najmite Y - new input\r\n");
}
while(toupper(_getch()) == 'Y');
return 0;
}